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ABSTRACT 
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MICRO-NUVA SC-Mt*0«Y TEST 

ABSTRACT 

THE SC-MEMORY TEST CONSISTS OF A SERIES 

OF SC-MEMURY TESTS ANIj A SIMPLE 

SUPERVISOR PROGRAM. (THE DIAGNOSTIC LINKER) 

THE DIAGNOSTIC LINKER IS A PROGRAM 
DESIGNED TO "LINK" THE VARIETY OF 
SC MEMORY TES1S. 



MACHINE REGIUIREMEnT> 

MlCKO-kOVA PROCESSO" KITH 4 TO 32K OF 

REAU/uMTE MEMORY 

(allokS for expansion in ik increments 
but memory must be contiguous) 

prereul'isites 
software prerequisites 

the micro-nova losic test should have 
been run before attehping this test, 
snitch settings 
auto-size and go start at 208 
manual select/delete tests start at 206 
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KtY ENTERED OPTIONS 

KtY T SETS SNREG2 BIT a 1 

WILL ALLOW THE OPERATOR TU 
SET LOWER LIMIT OF TEST(PMSLO) 
AND UPPtR LIMIT OF TEST(PHSHI) 
VALUE ENTERED SHOULD BE 
A MODULI) IK DECIMAL NUMBER . 

ENTtRtO LIMITS MUST: 

1. FALL WITHIN THE MEMORY LIMITS 
SUED BY THE PROGRAM. 

2. ND1 INCLUDE AREA WHICH THE PROGRAM 
OCCUPIES. 

3. FOR PHSHI BE GREATER THAN OR EQUAL 
TU PHSLO OR THE LIMITS WILL NOT 

BE ACCEPTED, 

EXAMPLE! 

TD TEST AREA BETWfcEN 16K 

ANO 32K ENTER: 

CPHSLO, PHSHI) 16,31 

TERMINATE INPUT LIMITS WITH A CARRIAGE 
RETURN. 

KEY * SHBal ENTER TMF KEY PARAMETERS 

UNTIL A CR IS INPUTTED. 

EACH KEY «ILL COMPLEMENT 

THE PREVIOUS SELECTION 

OF THE SAME KEY, 

CONTINUE FROM ERROR, NO LOOPING 

INHIBIT ALL TTO TYPEOUTS 

INHIBIT PASS * PRINTOUT 

HALT AFTER ERROR TYPEOUT 

TYPE ANY KEY TO CONTINUE 
KtY WILL CAUSE MARCM/GALPAT/GALWREC TO USE 

ALL l'S DATA PATTERN ON EACH PASS, 

SWRG2 BIT 2 • 1 
KEY P PRINT PASSED FOR EACH TEST COMPLETED 

SUCESSFULLY, SWRG2 BIT I ■ 1 
KEY (OS PRINTS STATUS OF EACH TEST WHICH 

HAS COMPLETED A PASS, SWRG2 BIT 15 « 1 
KEY (OD WILL SET SWREG TO DtFAULT MODE 

ALL BITS • 

ANO WILL RESTART THE PROGRAM, 
M LIST CURRENT OPERATING MODES 

(OH WILL RESTART THE PRuGRAM 

WITHOUT MODIFINb THt SWRE1, 
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WHERE U) IS A CONTROL KEY 
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4. OPERATING PROCEDURES 

4.1 LOAD THE PROGRAM VIA THE BINARY LOADER 

4.2 SET SWITCHES TOI 

200 FOR AUTO SIZE AND GO 
?08 FOR HANUAL SELECT/DELETE 



PRESS START 
PROCESSOR WILL TYPE: 

MICRO-NOVA SC-MEMORY TEST 

MEM SIZE OIK'S 

PROGRAM RUN LIST 

PROGH DESCRIPTION 

IF START WAS 20B THE LIST OF 

PROGRAMS TO BE RUN SEUUENTIALLY HILL 

THEN BE LISTED AND THE TEST PROGRAM 

WILL AUTO START, 

NOTE! GALPAT ANO GAL"REC "ILL 

NOT BE SELECTED ON AN AUTO START. 

IF START WAS 206 LINKER WILL 

PAUSE AT THE END OF EACH TEST 
DESCRIPTION AND WAIT FOR KEYBOARD 
INPUT, TYPING IN A SPACE WILL 
ENABLE THAT TEST TO BE RUN. 
TYPING IN ANY OTHER CHARACTER NILL 
DELETE THAT TEST FROM BEING RUN 
THE PROCESSOR WILL THEN WAIT FOR THt OPERATOR TO SET 
ANY BIT SWITCH OPTIONS, TEST WILL START 
AFTER PRESSING ANY CHARACTER ON THE KEYBOARD. 
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ERRUR DESCRIPTION 

MOST ERRORS 0ETEC1E0 BY EITHER 

THE INDIVIDUAL TESTS OR 

BY THt DIAGNOSTIC LINKER KILL 

RESULT IN AN ERROR TYPEOUT. SOME 

SMALL NUMBER UF HIGHLY IMPROBABLE 

ERRORS MAY RESULT IN A PROGRAM HALT 

IF THEY ARE OF A NATURE THAT THE LINKER 

CANIT RECOVER FROM AND LOGICALLY PROCEED, 
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!S,2 ERROR FURMAI 

EACh TEST RILL UUTPuT An UNIQUE ERROR 
TYPEOUT INCLUDING TEST NAME, DATA ASSOCIATED 
«1TH ERKDR, ERROR LOCA T IUNS, SCRATCH LIMITS 
USED FOR THIS PASS OF THE TEST.ANO THE 
MEMORY LIMITS SELECTED TO BE EXERCISED 
BY EITHER THE OPERATOR OR THE PROGRAM. 

DEFINITION UF ERROR PRINTOUT TERMSI 

CtX) ■ CONTENTS OF LOCATION X 

LOC CX) ■ ADDRESS J* LOCATION X (LOGICAL OR PHYSICAL) 
C/(X) • COMPLEMENT OF THE CONTENTS OF LOCATION X 
SCRL0/H1« SCRATCH LIMITS OF THIS PASS OF THE TEST 

(LOGICAL OR PHYSICAL) 
TSTLO/HI" SCRATCH LIMITS EXPRESSED IN DECIMAL IKIS 
PHSLO/HH ENTEREDiOR PROGRAM SELECTED, MEMORY LIMITS 
TO BE EXERCISED IN DECIMAL IKIS, 



EXAMPLESI 
ERROR TYPE OUT 



GALPAT 

CCY) C(X) 

0000010 000100 
SCRL0/H1 
TSTLO/HI 
PHSLO/HI 



LOC(X) LOCCY) 

016010 017343 

016000 017343 

7 7 

3 31 TYPE ANY KEY 
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IF S»2»l THE 

TEST "ILL HALT WAITING FOR 
THE OPERATOR TO PRESS A KfcY 
ON THE CONSOLE 
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6.? PROGRAH INITIALIZE 

THE DIAGNOSTIC LINKER INITIALIZES ITSELF 
AND INOlVIOU»L TESTS IN THE FOLLOWING 
SEQUEnCEI 

1. SYSTEM IS RESET, 

2. ANY OTHER NECESSARY CONSTANTS 

ARE INITIALIZED 

3, MEMORY IS SIZED IN IK INCREMENTS 

FROM 14 TO 32K 

4, LINKER THEN TYPES THE PROGRAM 

NAME AND REVISION LEVEL, SYSTEM SIZE, 
THE PROGRAM RUN LIST (AND RILL ALLOR THE 
OPERATOR TO SELECT OR DELETE SPECIFIC T 
IF START MAS 206 



6.1 OPTION SELECTION 



IF THE PROGRAM aAS NOT AUT08TARTED 

(NOT LOC 2M) THE LINKER RILL PRINT 

"OPTIONS*" AND hAIT FOR A CARRIAGE RETURN 

TO START EXECUTING THE TESTS. 

THIS ALLO»S THE OPERATOR TO SET UP 

THE KEY ENTRY OPTIONS INCLUDING 

KEY "T" NHICH ALLOWS SETTING OF MEMORY 

TEST AREA LIHITS. 
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PHPbRA" FXECU1IUN 

ONCt THE LINKER HAS CONPLETtO ALL 
INITIALIZATION THE FOLLURINfc SERIES 
UF ITERATIONS IS LDUPtO THROUGH 



1. LINKER SEARCHES THRU LIST OK TESTS 
UNTIL IT FINDS ONE aHICM IS 
NOT OELtTED. 

2. LINKER THEN SETS UP SEGMENT SUE 
DAISEU On THE VALUE IN THE 

PARAMETER TABLE FUR EACH TEST. 

3. THE LINKER THEN SETS SCRLO AS THE 
BEGINNING OF THE SEGMENT TO BE TESTED 
AND SCRHI AS THE ENO OF THE SEGMENT. 

4. THE LINKER HE-ENTERS THE TEST KITH 
EACH SEGMENT UNTIL THE AREA SELECTEU 
HAS BEEN EXtRCISEO. AFTER CUMPLETION 
THE LINKER SEARCHES FOR ANOTHER TtST 
IN 1HE SERIES. 



AFTER SEVERAL PASSES OF EACH TEST 
SELfcClED THE LINKER HILL PRINT 
"PASS XX" IF SRREG BIT 'I HAS NOT 
BEEN SET. 

IF PRUGKAM «AS LOADED FROM UTOS WITH 
EITHER CAT UR KITTEN IT RILL START 
CAT/KITTEN AFTER FIRST ''PASS". 
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!7.n TEST OEStHIPTIUNS 



7.2 OATA EQUALS ADDRESS TEST 

THIS 1EST "RITES THE ADDRESS OF EACH 
LUCAT10N INTO EACH LOCATION AS DATA 

IT THEN RtADS BACK ALL LOCATIONS AND CHECKS 
THE VALUE READ AGAINST 1Mb ADDRESS. 

7.3 IS!! INSTRUCTION TEST 

7. .1.1 FORKASD ISZ TEST 

THUS TEST FILLS ALL SCRATCH HITH A MINUS 
□NE PATTERN, THEN PERFORMS A ISZ INSTR. 
FOLLOWED BY A REAU OF THE LUC, TO 
VERIFY IT CONTAINS A ZERO. THIS IS 
OUNE AT EACH LOCATION FROM SCRLO TO 
SCRHI. 

7.3,2 RtVERSE ISZ TEST 

THIS TEST IS IDENTICAL TO THE ABOVE TEST 
FXCEPT THAT THE MEMORY ADDRESSES ARE SCANED 
FROM SCRHI TO SCRLO. 



7.4 MARCH 



THIS TEST FUNCTIONALLY CHECKS EACH BIT IN THE 
MEMORY AND THE ADDRESSING , 

THIS TEST USES EITHER RANDOM DATA (KEY OPTION "0 
OK ALL ONES OATA (OPTION "Q»i 1). 

A TEST PATTERN IS WRITTEN INTO THE BACKGROUND 
STARTING AT SCRLO AND ENDING AT SCRHI, 
ADDRESSING IS THEN SCANNED ACROSS THIS RANGE 
AND AT EACH ADDRESS THE TEST WORD IS 
REAQ AND A COMPLEMENTED TEST RORD IS 
WRITTEN BACK INTO THE SAME LOCATION, 

THE DATA IS THEN COMPLEMENTED AND THE ABOVE 
SEOUENCE REPEATED. 

THE PROCESS IS THEN RtPEATEU 

STARTING AT SCRHI AND PROCEEDING TO SCRLO . 
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7.5 MASEST 



(SEGMENT MAX. 



2) 



CHECKS FOR DESTRUCTION OF STORED DAT* THAT MAT 
RESULT FRO" MULTIPLE SELECTION OF ADDRESSES 
INTERNAL TO THE MEMORY CAUSEO BY FAULTY 
DECODERS OR LOGICAL SWITCHING HAZARDS, 

ALTERNATE ALL ONE'S, ALL ZERO'S ARE WRITTEN IN 
ASCENDING LOCATIONS. EACH LOCATION IS THEN READ 
AND VERIFIFtD WHILE GOING THRU THE ADDRESS 
SEQUENCE OF ADDRESS, COMPLEMENT OF ADDRESS, 
AUDKESS PLUS ONE, COMPLEMENT OF ADDRESS PLUS 
ONE, ETC. . MEMORY IS THEN READ SEQUENTIALLY 
ANO THE ALTERNATE ONE'S ZERO'S PATTERN 
VERIFIED. 

7,« SLDIAG [SEGMENT MAX • 1) 

THIS TEST IS NOT SELECTtD IF 

THE PROGRAM IS STARTED AT LOC 20fl. 

THIS TEST FILLS THE BACKGROUND »ITH ALL B'S 
PATTERN AND THEN .RITES A DIAGONAL PATTERN 
USING THE COMPLEMENT OF THE BACKGROUND. 

THE ARRAY IS THEN VERIFIED HEAOING DOWN EACH 
COLUMN INSTEAD OF ACROSS EACH ROW. 

IF NO EKR0R5 ARE FOUND THE PROCCES IS REPEATED 
WITH THE DIAGONAL SHIFTED ONE POSITION UNTIL 
ALL POSITIONS ARE USED. 

NEXT THE BACKGROUND IS COMPLEMENTED AND THE 
TEST REPEATtD, 
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7,7 GALPAT (SEGMENT MAX « 1) 

THIS TEST DOESN'T RUN On AN AUTOSTART. 

THIS TEST CHECKS AODRESSING, INTERACTION 
BET»EEN BITS, AND PATTERN AND SEQUENCE 
DfcPENOENCY FOR TRANSIENT PERFORMANCE, 

THIS TEST EIHER USES RANDOM DATA OR ALL ONES 
(SEE KEY OPTION »Q») 



« BACKGROUND PATTERN 
MEMORY. THEN STARTING 
A TEST WORD IS URITTE 
BACKGROUND) . 
MEMORY IS THEN READ I 
FOLLOWING SEQUENCE! B 
NEXT BACKGROUND, TEST 
BACKGROUND, ETC. 
AFTER COMPLETION OF A 
SCRHI , THE TEST WORD 
NEXT SEQUENTIAL LOCAT 
PROCESS OF READING KE 
THIS CONTINUES UNTIL 
BEEN LOCATED IN EVERY 
FROM SCRLO TO SCRHI. 



AT COMPLETION, THE ABOVE SEQUENCE IS 
REPEATED USEING A COMPLEMENTED PATTERN. 



IS WRITTEN THRU-OUT 

AT THE FIRST LOCATION, 
N(COMPLEMENT OF 

N ALL LOCATIONS IN THE 
ACKGROUNO, TEST "ORD 
WORD, NEXT 

PASS FROM SCRLO TO 

IS HOVEO TO THE 
ION AND THE 
PEATEO. 
THE TEST WORD HAS 

MEMORY LOCATION 



FUR SAKE OF TYPEOUTSI 
LOC(X) » TEST WORD LOCATION 
LOC(Y) • BACKGROUND LOCATION 



7,8 GAL»REC (SEGMENT MAX ■ I) 

THIS TEST DOESN'T RUN ON AN AUTOSTART, 

THIS TEST CHECKS ALL POSSIBLE WRITES 
FOLLOWED BY REAOS AT DIFFERENT LOCATIONS 

THIS TEST EITHER USES RANDOM DATA OR ALL ONES 
(SEt KEY OPTION "B") 

A BACKGROUND PATTERN(B) IS WRITTEN THRU. 
OUT MEMORY. EVERY PAIR OF AOORESSES ARE 
THEN CHECKED IN THE FOLLOWING MANNER, 
STARTING WITH THE FIRST LOCATION , LOC (X) I 
WRITE TIINVERTEU B) IN LOC (Y) • (X«l ), READ 
B IN LOC(X), WRITE B IN LOC(Y), 
REAL B IN LUC(X), WRITE T IN L0C(Y)-IY*1> 
READ B IN LOC(X) ,ETC. 

AFTER ALL LOC. HAVE BEEN CHECKED IN 
RELATION TO LOCATION ONE(X),THE SEQUENCE IS 
REPEATED WITH RESPECT TO LOC (Xl • (X»l ) , ETC. 

AT COMPLETIUN , THE ABOVE SEQUENCE IS 
REPEATED USEING A COMPLEMENTED PATTERN. 
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(AUTO-RUN SwITCH 

IDEVICE CODE 

(CAT SWITCH 

(NUMBER OF PASSES THIS RUN 

(RETUHN ADR OF DTOS/EDTuS/PDTOS 

[SOFTWARE SWITCH KEGISTER FOR OPTIONS 
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.TIIU LINSR 
(DIAGNOSTIC PROGRAM LINKER 
(LINKS TO TYPtOUT ROUTINES 
(PAGE <e LINKS 



ID ^aB66 >) PR a 4(1 TPLUC: 46 

IS «iPkl67 /H6P47 TPAURi 47 

2D ent»7«) /l<»1633 IPDEC: PUE? 

21 idl"«7l /ioi 1 5/7 IMESS! HfcS? 

22 0»>lc72 .101*26 IZOCT! ZOC? 

23 «5l?«i73 >)i"lS27 IPOCT: POC? 

24 HPW74 t«P17lH ICRLF: CLF? 

25 ii«iPl7i> P0EC1« IPuEC 
20 dpinpi71 LMESSs IMESS 
27 B?KI?73 LPOCT« IPUCT 

26 rfPS>»72 PZOCTi I70CT 
29 ,^ki(i74 PLHLF« ICRLF 
9 (i *K«B74 ICLF?»PCRLF 

31 o<n<t1<n IPDt?»PQECI 

32 ■O00H72 IZOC?«PZOCT 

33 ^B»7S «PI2516 ERRTXi tRTXT 

34 HHB76 D01363 R6TKN: LRtTP 

35 udk'77 iG!2?7u ARAnG: KANGn 

36 tUMPm H02337 £«ROl! EHROH 

37 UH15U '/IB2431 ERRUX: ERROR 
36 PP102 UP2426 EHRUY: EHRU3 

39 aniej in»4ti66 l»Rok: wrbkg 

4H t)Ul|i4 (n?«l(41 T1BLI LZMAX 

4i amis !«i»47/s lpgmk: progk 

42 (TEST PARAMETER LOCATIONS 

43 aPltfb *i3)<iH04 K4( 4 

44 «iPl?7 «Pi'1P37 K37I 3/ 

4b belli) «76D«10 K76K! 76t»»(» 

46 uulll KMPsiJi DTS1K: « 

47 0P112 tfP^flilA PENuAi a 

48 et"113 it. tfl n? i" il H CURPR( H 

45 »iPU4 »ai)B«ja PSTRT: a 

Ski wpiib i/ipi^Piisi PhFlG: m 

51 I'fllt V.9VMH PR. S3: e 

52 UJI117 ^("«("Wlk? SEGMTi H 

53 US!12<! ti*<tlrn* SWRG2: •) 

54 nni2i tie >t a «<ii itrer: b 

56 aei22 /.um;i» oi ritim: i 

50 HP123 /UtfUBi" STAIS: is 

57 *1PM24 «ipirf?.u? Er5h: & 
So i"ei8b «i turnup LASTI: « 
59 

an hbi26 «n»4Uu8 katsw: » 



(TRAP PC STORAGE 

(TRAP Thru THIS LOCATION 



IDFCIMAL PRINT 
(TEXT PRINTER 
(PRINT OCTAL 
(ZFRO SUPPRESS OCTAL 



(TEXT TYPEOUT CALL 

(RETURN FROM TEST 

(RANDOM * GENERATOR 

(INIT ERROR TYPtOUTS 

(tRROK HANDLER NO PRINT OF AC3 

(ERROR HANDLER, PRINTS AC3 ALSO 

(FILL BACKGROUND SU8R. 

(START OF TEST TAdLES 
in OF PGMS TO INIT 



[BLUCK WHICH uTUS RESIDES IN 
(LAST LOC OF TEST 

(FIRST LOC UF TST 

(■a, NO PRINT OF AC3 

(AC3 SAVED FOR THE ERROR PRINT SUBR. 

(TEST SEGMENT SIZE 

(SECOND SOFTWARE SWITCH REGISTER 

(ITERATION tRROR SWITCH 

(REAL TIMt 

(FLAGS WHEN 519 ERRORS ARE REACHED 

(TTI CHARACTER SAVED 

(DlT »■! IF NOT YET SERVICED 

(-1 IF CAT/KITTEN HAS BEEN STARTED 
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(■"1. PRINT AODRtSS LIMITS 
(ERROR ACCUMULATOR 
SIZE PARAMETER LOCS FOR TEST USAGE 

(LOWEST PHYSICAL MEMORY TESTABLE (OCTAL IK'S) 
(HISHEST PHYSICAL MEMORY TESTABLE " 
(ADJUSTED LO PHYSICAL LIMITS " 

(ADJUSTED HI PHYSICAL LIMIT » 

(PHYSICAL LU LIMIT FOR THIS TEST PASS " 
(PHYSICAL HI LIMIT FOR THIS TEST PASS » 
(CURRENT LOWEST LOGICAL SCRATCH ADDRESS 
(CURRENT HIGHEST LOGICAL SCRATCH ADDRESS 



1 IH 15 


HnSLM 




-41 

02 




IN0VA3/M0M INSTRUCTION SET 


<)J 


«)61401 


,UIAC PSH. « 6146)1 


34 


«6l6t 1 


.LIAC POP. • 61601 


Ob 


*,S1001 


.IIIAC MTSP « 61001 


flb 


uSvlWtil 


.UIAC MJFP ■ 60001 


37 


i/ 6 1 2 «) 1 


.OIAC "IFSP ■ 61201 


ae 


,t0itffltf2 


.ULJSR MAP « 2 


09 


^1 ^idp" ^4 


.OUSR PKTY « 4 


it< 


K 6 1 J! ? 7 


.HUSH I.RST ■ DUA 0,77 


n 


«71!»77 


,UUSK RTCtN • PUA 2,77 


12 


,165077 


.OUSR RTCUS • DOA 1,77 



10016 mimSCM 
01 

02 »0»2i4tt .LOC 200 

03 0020/ l"«22«>2 STRT1: JnP HBGNADR 

«4 00201 000000 n»cT: e i 

05 VlWi. i"00210 B1.NAOR. LINKR 

'46 0020.J kd^VJMvlft PASS* 

M 00204 000004 passin. 4 

36 00205 000A04 PASSVL1 4 

09 H0206 t?02207 STRT2: JMP »,♦! 

10 H0207 000211 LINKH 



11 

12 KB21(l 1H24U1 LINKR! 

a »*02ti 102000 linivm: 

14 HC212 152400 

16 LINKP: 

16 «it"21J 04.1230 

17 00214 O04220 
IB 00215 *&0SM2 

19 00216 004220 LRU'lSI 

20 00217 000242 
21 
22 
23 
24 
26 00220 02140H LDSPRl 

26 1)0221 H40227 

27 00222 036227 LDS.l I 
26 00223 005400 

29 20224 005231 

30 00225 010227 

31 00226 000222 

32 00227 000000 LIDIS: 

33 00230 000000 LAUTOI 

34 00231 001502 KtY.II 



(UINKtR MAIN LINE DISPATCH ROUTINE 



ISIZE AND BO 



ISIZE AND »AIT FOR SELECTIONS 



SUB 0,0, SKP 

ADC 0,0 
SuB 2,2 



(AUTOSTART ENTRY 
IMANUAL ENTRY START 



STA 0.LAUTO (SET ENTRY TYPE S» 

JSR LUSPR ISTART OISPATCM 

LT8L1 JTHROUGH IN1T StQ 

JSR LOSPS 

LTBL2 /THROUGH RUN TABLE 
IDISPATCH ROUTINE 

(6NTEH SUBROUTINES IN SEO VIA TABLE SPEC 8Y CR3] 
ItNO UF EACH TABLE IS LRUNS KHICH HILL START US 
/BACK AT THE BEGINNING OF THE RUN TABLE 



LDA 0,0,3 

STA », LIDIS 

LDA 3.PLI0I5 

JSR 0,3 

JSR PKEY.I 

ISZ LIDIS 

JMP LDS.l 



IADRS OF OISPATCM TABLE 



ICHECK FOR TTI REUUESTS 



UC17 MmSlm 
III 

*2 

<*3 
34 

as 

A7 
08 
JIB 
ltf 
11 
12 
13 
14 
IS 
16 
17 
IB 
19 



.MACRO NEXTT 
(OFUNITION TO LINKR PAKAMETEKS fULLOwS 
LI*EML». 



LPG«" 



.LOL LP6B 



.LOC LMfcMu 




»1.HHI JMP M.8>? 



»2 

.TXTE l»3l 



>TST ERR CTR THIS PASS 
(TEST PASS COUNTER 
ITEST ERROR COUNTtR 

(EXECUTE ENTRY ADDRESS 

»«AIT S«ITCH 

(MAXIMUM SEGMENT SIZE 



.MACRO LCAlL 

***l-PDfcCl«lBtl«1000ltf 



ifoie »u 
01 

02 

13 «i>232 
"it "10233 
3b l'.P234 
06 «?23S 
i"? i/»23b 
«>» W1237 
39 C"024rf 
U. /»24l 
11 

12 
13 

14 HW242 

15 »«?243 

16 r'l*244 

17 J.024S 
IB M246 
19 Mfit7 
tit «P25f 
21 

22 

23 

24 

2!) 

2b »<l?251 

27 <!B252 

2b E)I>2S3 

29 fc?254 

3ii u(«2bs 

31 ui»256 

32 UP25/ 

33 Wt»ii6i1 

34 C0261 

35 itP262 
3b BH263 
37 ^M264 
3B 00265 
39 Bl«266 
Ai> tfF267 
<1 »"27n 

42 M»271 

43 *P>272 

44 HH273 
4S 

46 £«274 

47 Bl»275 



5CM 



/SV>5nw 
tffltfbbS 
«P123>» 
.1*3667 
0«<i2b2 
»"t>21S 
'/ s Y! t. ? 
<JPItf0lrtW 



<!«! 10715 
<sei3«i2 
i«l»1126 
WKl3b7 
J5IK.216 



* , .AkJ?3t* 
B-34274 
022251 
l«kjHv)4 
UH22/4 
ir. ■» b P / 1 
1D2642 
tf6^177 
t»?K125 
171133 
0010261 
1924275 
li»ba 15 
•"PV271 
tfl»o231 
.1 P H S 6 1 
ll»«!4Htl 
*4*125 
«5*22/4 

... ? d f V ifi 

1 pier 15 



ILTbUl-INIT SYSTFM UISPATCH TABLE 
(tNU UF TABLE IS L*UNS 
LTBL1! LSYSR (RESET SYS 

LSIZE ISIZF MEMORY 

UNIT UNIT TtSTS TO BE RUN 

LPKSL (LISTS TESTS TO BE RUN 

BTSwn IAI.LOH OPERATOR TO INPUT SWITCH OPTIONS 

LKUNS 

P 



I 
I 

ILTBL2-KUN SYS DI5PATCH TAB;.E 

LTBL2: LKANP (SEQUENTIAL PROS SELECT 

(SKT LO/HI MEMORY LIMITS IF BIT B«l 

(EXtCUTE TEST 

(ADJUST RUN STATISTIC* 



SITML 
EXCTS 
LSTaT 
LKUNS 

(I 
H 



BTSdO-ALLOK OPERATOR TU INPUT THE SWITCH OPTION BEFORE STARTING 



LAUTO 

STA 3.BTSV3 

LOA e,»rtTSHO-l 

COM H,fl,S2R 

JMP »BT5V3 

JSR »LMtSS 

TXT. 4 

INTEN 

LOA P.IASTJ 

MUVZL* a,B,SNC 

JMP .-!: 

LDA l.BT.CR 

SuBn u.l.SNH 

JMP .♦} 

JSR »KEY.I 

JMP BT.CK 

Sub a,e 
sta a.LAsn 

JMP »BTSV3 



BTS»3: b 

Bl.cR: hjpbis 



(SAVE ACS FOR RETURN 

(SET LAUTO SN 

(SKP IF NOT AUTOSTART 

(RETURN 

(PRINT OPERATOR MESSASE 

(TEXT ADDRESS 

(CK IK HEflUESTEO YET 

(SKP«REUUESt 

(NOT YET 

(MAS IT A CK? 
(NOT YET 
(SERVICE REUUEST 



ICLk REU, BIT 
(RETURN TU LINKR 



(SAVE RETURN ADDRESS I.OC. 



ItJH 


19 MNSLM 




m 






B2 


npi«l5«!» 


,LDC 5Ht> 


eij 


ILSYSR- 


•RESET S»STE« 


14 


»»>5(*«! *61f77 LS»SRi 


I.RST 


«5 


«eibm l^aiaa 


SUB 0,0 


96 


t<03?2 f J 4 kl 1 2 4 


ST* »,ER!I» 


67 


BUbOi .<«B12P 


ST* «,S»RG2 


i\b 


BB3B4 J4S4P03 


STA 0,PASS 


tin 


^»51!5 040125 


STA *,L*STI 


IV 


KP506 »4tfl3i< 


ST* B.ERTGT 


11 


Jlt)5P7 B4B113 


ST» B.CURPR 


12 


tiablu /14<il26 


ST* f.KATS* 


13 


B«Sll K12B2M5 


LD» B.PASSVL 


10 


BB5I2 024S162 


LD* 1,ESGS*2 


15 


0K51J 125^05 


MOV 1,1, 5NR 


16 


10P514 iiei<l4t>2 


JMP ,*2 


17 


BASIS 15l312e 


ADDZL 19,0 


IB 


iftiaio i'.4n2n5 


ST* e,p*ssvu 


IB 


WP517 U2H441 


LU* B.LSYEE 


2u 


wb52b V324UVI 


LU* 1.K76K 


21 


20321 1234BH 


AND 1,9 


22 


fl?)522 181 IZ20- 


movzr a, a 


23 


0052,5 1PU220 


1QVZR 51, » 


24 


bb524 laUwn 


muvs <g ( i> 


25 


BP525 1« 14.11* 


INC «,B 


26 


»!»526 W43133 


ST4 B,PMSUU 


27 


S!t»527 u4>9t Jl 


5T4 ?,PMSLX 


26 


SJP53H «i2B4j4 


LU* H,LC.K4 


29 


0I»531 >|61??1 


MTSP U 


361 


B0532 MMPB1 


MTFP «! 


31 


B*S33 B2H415 


LU* 0,STK1N 


32 


BP534 10 4 BUB 3 


ST* «l,3 


33 


1919535 424411 


LU* «liLC.H» 


J 4 


u«53o B4nt>Bl 


ST* 19,1 


35 


B0537 *2B41(» 


LOA B.LC.H9 


36 


0B54B ,a4PJIia2 


ST* 8,2 


37 


BH54J «!2«)4B4 


LU* B,LL,K5 


36 


BF542 442(167 


ST* B,#TPADR 



iiorst 

IZEMO bB tHHOH FLAG 
IDEFAULT MODE SI.REG2 
rST*RT "ITH P»SS B 
ICLR ST»BT FLG 
ICLR ACCUM ERRS 
(SET CURRENT PGM TO B 
IRESET CAT/MTTEN S»ITCH 
IP*SS CNT V*LUE 

rc«T s» 

(SKIP IS USING CAT 

1.4 FUR CAT PISSES 

IUPOATE TO 4 TIMES ULU VALUE 

(GET END OF PGM ADDRESS 



ISAVE IT IN PHSLO 
lPL»Ct IN PH5LX 



UNIT STALK TU LOC 4BU 
ILOC 3 FOR ST*CK ERRORS 
IFOR 1NTRAS 
IFOR KTL INTR 
(SETUP FOR TR»PS 



|(1M2B HnSCM 

31 B0543 «)H14B» JMP 1,3 

B2 BB544 u?B4«ia LC.M! 4BB 

ai K.B545 B8!l?62 LC.K5: CUISP 

04 .1JJ546 l»B»57« LL.Kfl: LINTR 

05 BB547 BP0570 LL.H9: RICIN 



(STACK FAULT HESS 
IMALT If STACK ERROR 



l»H2l MnSCm 

"i ;stack fault handler 

32 40S5U NiMSSl S1K1N! ,♦) 

<»3 1-0&6 1 w«OR?l JSR dLMESS 

«14 aKSbi! eHiiibl 5TKTX 

t»b Iti » 5 B 3 .«63PI77 MALT 

flb i»Ubb4 ,«n24ul JhP »,♦; 

017 atlbSb «>ein211 LINK!" 

><8 «;?6Sb aniSbia u r TI s tt.ti 

as# 0PI357 B>Pi<t>74 LS.74: 74 

1H «Hb6t> S»H4777 LSYEE: LSYSt ItNLi UF Pl,M ADDRESS 

11 *0b61 OHS215 STKTX: .1X1E I «1 5><12»STACK FAULT! 

13 

1" (MICRU-NOVA RTC INTERRUPT HANuLtR 

lb K1B1&7B <91l«122 RTCIN: ISZ R1T1M 

lb tS!b71 1R1HDPI mciv B,B 

17 n?37i! dial a? isz RTTIH UNC REAL TIMt BY T»0 

IB kiC"b73 IKlPioB mov a,0 

1» «!Hb74 «I«H177 INTtN 

2B S1KS75 ^Pk'f.jf J>,P «u 



^ 1 IllNTH . LINKER INTERRUPT HANuLtR 

•Hi iiflb7o /7b4tl LINTR: PoH. a (SAVE AC3 

33 V7377 ,1714^1 PSM. 2 IAC2 

«4 npfrf.l »ifiS4t<l PSM. I (ACl 

Hi 10B6P1 ^614nl PSM. t, jACU 

*b B?6?2 «l?JHk'.»l LU» f>,t! 

T)J BfftHj l/lln? MLVL U„B,S,!C ICARRy 

as nfton4 «6jf/7 malt ran UP B«l? 

H» debStb /614BI PSM, io IPC«2*CRY IN 8IT 15 

IB t.flbPb H6JS1? SKPDN T 1I ITTI INTR? 

11 nJB6f7 i^ t i4D3 JrtP ,*3 

12 uPbla ^Bo746 JSR »LTI 

13 aft>l 1 ,\»r*i\ jmP LIWTD 

14 **$\2 /61477 InTA tf 

lb i»Pbl3 1 ("rff 15 COM* »,B,SNH |-1 

lb »iP614 »-n»417 JrP PFAIL 

17 rA615 i*3«>4«i2 LuA 2,,*2 

18 t'P&16 14JI0W1 ADD 2,H,5KP 
lSi -'0&17 *i6ri>hl« NIDC » 

2& ICPU2B B4H401 STA »,.*1 

21 H0621 v,6Ji»f,i NIOC P ICHANSED TO CURRENT DEVK 



IU32J ™SCH 




A 1 
'12 






JLINTD 


"14 








*A 






LINTDI 


315 


t'i(<0?2 


«)616ul 




Ab 


KH623 


1(» 1221 




JI7 


i»<»b24 


^4^PJt)"l 




018 


11*1625 


^sieai 




.19 


0H62b 


dSSBbI 




If 


t^b^^ 


071 SIM 




U 


HP63H 


H7S6U1 




12 


e?b3i 


*>6U177 




13 


0«b32 


d02«tfPJ 




14 








lb 








lb 








17 








IB 


UPbSJ 


i1 fi J ^ 7 7 


PF AILS 


IS 


uB65« 


i>*b<"71 




SK 


l»t»63b 


«Jfftf637 




21 


UPb3b 


^010206 




22 


H0b37 


KPb215 


PpTxT: 



JLINTD - LINKER INTERRUPT DISMISS 



POP. 



ISET CHY*2«PC 



(RESTURE CRY 



muyzr a,p 

STA «,B 

POP. B 

POP. 1 

POP. 2 

PUP. 3 

INTEN 

JMP «k> ISETS TO LOGICAL 



HALT 

JSR »LMES5 

PFTXT 

JMP STRT2 

.1XTE l«15»«12»P0»iEri FAIL HtST»RT*15>«12>l 



10PI24 MNi 


LM 










«» 




ILSIZE- 


SIZE MfnnHY 




B2 




)SET UP 


PHbH* 






/ii 




I 








«4 fUbSJ 


U54413 


LSIZE! 


STA 


3,LS.53 




as «!Hb54 


.1H4414 




JSP 


MSZ32 


ISIZE B TU 32k 


Q6 wnibbb 


*2411IS 




LU» 


1,K7SK 


13 HITS PHYS PAGE 37 


JI7 »ao56 


1«74»0 




AND 


11,1 




98 »Pb57 


I2b3t»a 




MUVS 


If 1 


IAC1»LA5T PriYS PA&EC32K) 


i*8 HB66<) 


12S22I* 




MOVZR 


1,1 




IB UflbSl 


12922»> 




MOVZR 


1,1 




11 t)PlfiSli 


U441J4 




STA 


l.PMSMI 




12 «;Hb63 


i<44111 




STA 


l,DTStK 


>SMD BE LAST BLOCK IN 32K 


13 JtltbbA 


f44132 




STA 


1,PMSHX 


UN CASE NOT 32K OR NO MAP 


14 *l»b6b 


«iB«4i)2 




JMP 


LSIZR 




IS nObbb 


tfPdPHH 


Lb. S3: 


d 






16 W?!667 


002777 


LSUR: 


JMP »LS 


.S3 


(RETURN 


17 













II0H25 M 

SSI 

H2 

e>3 

it 

US H8I67 

06 PJP67 

*>7 WP67 

«b M?67 

US «IP67 

lit «)0b7 

U n*>67 

12 iieb7 

13 Kl?7f 
10 BC7P 
16 UB70 

16 H07P 

17 tB7e 

ID BP7P 

IS «H»7f 

2n »e/« 

21 »ll»71 

22 .tf)/l 

23 t«fS71 

24 wf)71 

25 tft»71 



H34424 
12t>4>)« 

2 .)3»425l 

3 133«iii» 

4 ^SUBO 
b 12tfSSf0 

6 u41B/a 

7 »121«»1B 
K 1224VIS 

1 «BH4«7 

2 uS»411 

3 H4bi«B(" 

4 «244P>7 

5 1254t)B 

121133 
7 «K»K763 
k'i / 2 vi 4 n 3 

1 «jei24u3 

2 ..01777 

3 tffltfdiflPl 

4 rtCWHtffl 



(MSZ32-MEM0RY 

(SIZES IN IK 

I 

MSZ32! ST* 

SUB 

ID* 

»UD 

LB* 

CUM 

ST* 

LU* 

SUB 

JfP 

ST* 

ST* 

LU* 

INC 

MOVZL" 

JmP 

M32SZI LU* 
JMP 

K1KI 1777 

"32TE: 8i 

XMS32! B 



SlZtR 32K 
1NCR EXIT ACSJ«nIGHEST *V*IL ADRS, 

3.XMS32 (SAVE 

1.1 I0FOR FIRST IK 
2.K1K 11777 PUR END OF IK 

1.2 (*CURKENT IK FIELU 
1,«,2 (SET CELL 
I, PI (CHNG BITS 

pi,a,2 

P,I»,2 («CUM MEM EXISTS 

1,(3, SnR (And «E'LL SKIP 

M32SZ ILST >l*S NONEXIaT 

2.MJ2TEM 

1,0,2 (HESTURt CELL 

1.M32TE IACl«l*ST IK TOP ADDRESS 

1.1 

1,1, SnC (SKP IF L»ST CELL "32K 

MSZ32+2 (NOT DONE SIZING 

0.M32TE (ACb«HIGHEST AVAIL. 

#XMS32 



10H26 MN 

31 

92 

03 

K4 

05 

36 .S&/15 

17 81B716 

SIB eH717 

0» «)fi72ii 

IB 0C721 

11 B1H722 

12 UP723 

13 30724 

14 »H72S 
t!i KP726 

16 K1P727 

17 fcd/am 
16 *C>731 

15 HC732 
«10733 
<1P734 

22 P>P73b 

23 410736 

24 <1B737 

25 .10/4.1 

26 OP/41 

27 «,0742 

28 00743 

29 HP/44 
3B H1P745 

31 (IK746 

32 U0747 

33 H075n 

34 BP7S1 
3b H0/52 

36 D0753 

37 «1(»/54 
SB »P75b 

35 B0756 
40 UB757 

.1076.3 
/I0761 

43 SI0762 

44 tftVSJ 

45 «>!>7M 
46 

47 H0765 

48 

4 if 

5U 



2kJ 
21 



41 
42 



SCM 



»S6447 

>42tlll3 
rt3wl04 
1 130WB 
«35Pi«30 
175PB5 
yPU4 if 
.■2S4.ll 
1245U5 
.30^4.32 
CH2433 
1314BU 
1514H0 
;*0d767 
"14204 
("0.1424 
."2D205 
.1 4 H 2 4 
«l2<!130 
1B1 Bf«<l 

o0»4i l 
«?2«iP165 
£24420 
123444 
000405 
KP6K71 
*0w765 
0242V13 
406070 
«ld2(s3 
10.1000 
^34049 
U214.14 

iaie»4 

600412 
102430 
H00736 
i"»12b3 
,3040/0 
*?0l 30* 

■50S21S 

W40520 
051523 
000240 



Lf'RLU 



LHSlE: 



LPRL2: 



ILRANh-SELECT t PKOG 

is.can skitchcS fur 

JiNTER *NY TEST NUT 
) IF NOT SELECT »NOT 
LH*NP: ST* 3,»LR.I3 

lu* a,:u»p» 

LDA 2.TT8L 
ADO 1», 2 
LU* 3,9,2 
MOV 3,3,SNR 
JWP LP!*L2 
LDA 1,1,3 
CUM» 1,1, SNH 
JMP LP31E 
JMP fILRG 

INC "1,11 

INC 2,2 
JMP LPHL1 
OSZ PASSIN 
JMP nxtpas 
LDA BI.I'ASSVL 
STA 0, PASSIN 
LO* B.ERTOT 
MOV a.B.SZH 
JMP LHRL3 
LD* H,S»RfcG 
LDA l,t.K,B4 
ANO l,ii, SZR 
JMP LPRL3 
JSR »LMtSS 
P4SST 

LU* J, PASS 
JSR »POECI 
ISZ PASS 
MOV 0,tl 
LUA 3,45 
LUA 8,4,3 
MOV B,fl,SZH 
JMP OTSKN 
NXTPAS! SUB «,H 

JMP LR*NP*2 

LPRliO 

1B4 

LH.S3 



LPRL3I 



ILRt: 

LR.B4: 

LK.I3: 



Ram To run 
NOT DELETED 
DELETED 
HER TEST 



(START UF TEST LINKS 

(POINT TO NEXT TEST TO TRY 

(SET TEST LINK 

(SKP IS TEST EXISTS 

(START THRU LIST AGA3N 

(GET INTR Sw 

(WAITING INT OR OISAHLEO? 

(YES TRY NEXT TEST 

(SETUP FOR THIS TEST 



(TRY NEXT TEST 



(PRINT PASS XX IF NO ERRS 

(ERROR DON'T PRINT 

(»1B4 

ISKP • PRINT PASS XX 

(DON'T PRINT PASS XX 



(DTUS RUN 

(START THRU LIST AGAIN 



PASSTl .TXTE !«15>«12>PASS I 



10027 MNSCM 



(OTOS SUN- CHECK (--OR CAT/KITTEN AND IF AUTO-RUN 



02 00771 020126 DTSRNl 

143 tH77i! 101004 

04 00773 000416 

05 H0774 020130 

06 00775 101004 
H7 00776 00H413 

08 B0/77 *21402 

09 B1000 IBICES 

10 010 01 *■ 4 1 

11 01002 040126 

12 01003 025404 

13 H1004 «30423 

14 01005 146400 

15 01006 1 35?k>» 

16 01007 060277 

17 01010 005400 

IB 01?! 1 034045 AuTUKI 

til 01012 021400 

20 HIB1J 101005 

21 t4 1 v 1 d a0*744 

22 01015 020130 

23 mlt'lb 1IMJM4 

24 01017 000403 

25 0l«20 015403 

26 ^ L idS 1 000737 

27 01022 061077 0T05R: 
26 01023 <i214i)3 

2b 01024 035404 

3H 01025 041776 

31 01026 001400 

32 01027 «01375 K13/6: 

33 ft li*3M 000576 PIS, I: 
34 



tut 0,*ATS>l 
MOV 0,0, 5ZR 
JMP AUTUK 
LUA 0.ERTOT 
1UV 0,0, SZR 
JMP AUTUK 
LUA 0,2,s 
mov ei,n,SNK 

JMP AUTUK 
5TA 0,KATSK 
LLA 1,4,3 
LOA 2,K1375 
SUB 2,1 
MOV 1,3 
INTUS 
JSR 0,3 
LuA 3,4a 
LuA 0,0,3 
MUV 0,0, SnR 

j«p nxtpas 
loa 0.ertot 
muv 0,0, szr 

J«P DTOSR 
OSZ 3,3 
JnP NXTPAS 
I.RST 
IDA 0,3,3 
LUA 3,4,3 
STA 0,-2,3 
JHP 0,3 
1375 
LINTR 



(CAT/KITTEN ALREADY STARTED? 
(SKIP IS NOT STARTED 



(DON'l START CAT IF ANY ERRORS 

(CHECK IF KITH CAT/KITTEN 
(SKP IS CAT/KITTEN LOADED 

(SET SNITCH 

(GET OTOS S1ART1NG AOUR, 

/FORM CAT/KITTEN STARTING ADDR. 



(START CAT/KITTEN 



IAUT0 RUN? 

(SKIP IS AUTO-RUN 



(RETURN TO OTOS If ERRORS 

(GET DTOS RETURN A013R 
(RETURN TO DTOS 



10028 MNSLM 

01 

02 01&31 006071 

03 01032 001044 
24 01033 d24467 
05 01034 006073 
0b 01035 

07 21036 

08 H1037 
0« U104P 

10 01041 

11 01042 

12 01043 

13 01044 

14 01045 
15 
16 01061 



020461 
024461 
030461 
6 1 G 
000401 
036417 
001400 
0H5215 
144411 



(ILLEGAL SUPERVISOR CALL TYPEOU1 
ICALL: JSR »LMESS 

ICALT 

LDA l,CO,LA 

JSR #LPOCT 

LUA 0.CU.30 

LDA 1.CU.S1 

LDA 2, CD. 32 

JSR »ERROI 

JMP ,*l 

LUA 3,*I0v,R 

JMP 0,3 
ICALT: .TKTE C«15»«12> 

ILLEGAL SUPER CALL AT ( 



( 



001205 IUV.R! 



(TEXT 



(TYPE PR» AC'S ETC 



(RETURN 



EXC.3 



10029 MNSL'M 












31 




(CALL 


DISPATCH 


ROUTINE 






92 0I062 


040434 


C0I5P: 


STA 


«,CD.SB 






3 oiobj 


U4443* 




STA 


1.C0.S1 






04 01064 


*i50434 




ST* 


2,CU,S2 






& t> 1 b b 5 


054434 




Sr» 


3.CU.53 






flb OlObb 


000439 




JSP, 


♦CD.KY 




;CK FUR S»PAK REQUESTS 


07 HI 067 


036«b6 




LB* 


3,»1PL0C 




(GET PC 


«8 01070 


H2140O 


CUGLCI 


lu» 


0,0,3 




<GET CALL 


09 ol«71 


K-544J1 




ST* 


3.CD.L* 




ISV LSICL »URS 


110 




(NOw DETERMINE 


IF IT IS 


* VALID 


CALL 


11 01072 


030432 




LU* 


2,C»LLS 




(START OF CALLS 


12 01073 


142433 




3UBZK 


2,B,SNC 




(MUST 8t»> 


13 n lid 7 4 


0O0735 




JMP 


IC«LL 




(ILLEGAL. CALL? 


11 01075 


(,24430 




LD» 


1,C»LLE 




(LAST VALID CALL 


15 01076 


122032 




»DC^» 


1,0, SZC 




(MUST Bt «< 


16 01077 


U00732 




JMP 


ICtLL 




(INVALID CALL? 


17 B1100 


142640 




SU9UR 


2,0 


(CREATE 


CALL AUKS 


lb «Jl III 


115220 




HOVZR 


0,3 


(MOV 4 


R 


19 nllBZ 


175220 




MOVZR 


3.3 






20 M1PJ 


175220 




MOVZR 


3,3 


l(*C3)« 


CALL* 


21 OllM 


020412 




LL» 


ecu. SO 






22 B11K5 


024412 




LU* 


t.CU.Sl 






23 iiilies 


.530412 




LU* 


2.CU.S2 







1O03O MNSC" 








01 01107 


>O7470 


CD.tXI 


JSP 


•PDECI.3 (CALL JSR 


32 OHIO 


1,00402 




JMP 


.♦2 


03 01111 


010411 




IS2 


CD. LA (TO SET PAST HESS, 


34 UH12 


010410 




1ST. 


CD. LA (NORMAL *1 RETURN 


»5 Ml lid 


034406 




LOA 


3, CD. S3 


J6 »1 114 


06B177 




I~TtN 




^7 01115 


* 4 4 tf 5 




JMP 


•CD. LA 


Ob 




(*auve 


JMP RETURNS TO USER 


*« Ollls 


oOafiflO 


CD, S3: 







11? 01117 


000000 


cii.su 







11 01120 


OOOPOO 


CD. 52: 







12 B1121 


£00300 


CD. S3! 







13 0! 122 


OfltfPOp 


CD. LA: 







14 ill2o 


► Jilbo2 


CD. KYI 


CKKtf 




IS 




CALLS: 


LCALL 


?OECI 


16 




CfcLLE: 


LCALL 


l.KRBK 



10031 mnscm 
01 

32 

03 

04 «1126 054457 EXCTS1 

3S til 1 27 020457 

06 DUJ9 014117 

07 01131 000401 
06 01132 024117 

09 01J33 122433 

10 0U34 loaooe 

U UI13S 044453 

12 01136 020133 

13 01137 U40135 EXC.L: 

14 0114H 1B7WKIP! 
II) i)1141 «3ol34 

16 161142 132433 

17 01143 000403 
16 01144 044136 

19 B1145 000402 

20 0114B 851*136 
21 

22 01147 030060 

23 01150 151004 

24 01151 000404 

25 01162 030062 

26 01153 151P03 

27 01154 00O42M 

28 01155 030111 

29 01156 112433 
3d 01157 40041b 

31 uUSu «24136 

32 01161 132032 

33 01162 000412 

34 01163 112414 

35 01164 000405 

36 01165 132415 

37 01166 000410 

38 0116/ 010135 

39 01170 000404 

40 oil7i 120000 EXC.C 

41 01172 133000 

42 01173 050136 
43 



(EXCTS-EXECUTfc TEST SELECTED 
(CONTROL MEMORY TEST LIMITS 
1 

ST* 3,EXC,3 

LD« 0,K33 

DSZ SEGMT 

JMP ,*l 

LUA l.SLGMT 

subz* i,o, snc 

MUV 0,1 
ST* l.EX.SG 

LD* o.phslo 

ST« 0, TSTLO 

too 0,1 

LU» 2.PHSHI 
SUBZ* 1,2, SNC 
JMP ,»3 
ST» 1, TSTHI 
JMP ,*2 
STA 2,T8TMI 



(MAX USEABLE SEGMENT 
(SEGMT SIZE-l 

(MAX SEGMENT FOK THIS TEST 
(SKH IF SEGMT *• 33 
(USE 33 

tsm it 

(SETUP LO LIMIT OF TEST 
1*00 SEGMT TO LO LIMIT 
IENO OF TESTABLE AREA 
(SKP IS WITHIN HI LIMIT 

ISETUP HI LIMIT OF TEST 

(USE PHSH1 IF TSTLO*SEGMT>PHSMI 



K032 MNSCM 
01 
02 
03 

04 01211 »,54415 LOMAPl 

05 «12!2 000401 



ILOMAP-LOAO MAP ENTRY TABLES ANO ADJUST SLRLO/HI 
(FOR THIS TEST P»SS 



STA 3,LD.S3 
JMP LO.NM 



/DON'T USE MAP 



ICHECK THAT DT0S-1K IS NOT USED IN TESTING 



(CHECK IF AUTO LOAD 
(SKIP IS NOT AUTO 



PROfSl 



LDA 2, EGGS 
MOV 2,2, 3ZR 
JMP PHOTS 
LOA 2,EGGS+2 
*0V 2,2,SNR 
JMP EXC.J 
LDA a.OTSlK 
SUBZ* 19,2, SNC 
JMP EXC.J 
LUA l.TSTMI 
ADCZ* 1,2,SZC 
JMP EXC.J 
SUBS 0,2,SZH 
JMP EXC.C 

sue* 1,2, SNN 
JMP EXC.R 
ISZ TSTLO 
JMP EXC.J 
ADC 1,1 
ADD 1,2 
STA 2, TSTHI 
(SET UP SCRLO/HI LIMITS AND MAP IF IT IS TO BE USED 
01174 004415 EXC.Jt JSR LUMAP /LOAD MAP ANO ADJUST SCRLO/HI 

(LIMITS ALL SET UP N0« EXECUTE THIS PASS UF TEST 
0117a 006412 JSR »ILSTH (START TESTING 

(NO* SEE IF ALL TESTING AREA USED 



(CAT/KITTEN LOADED? 
(SKP IS VES 

(NO NEED TO PROTECT DTDS 
(GET DT0S-1K WORD 
(TSTLO «» DT51K? 
(LIMITS OK, CONTINUE 

(TSTHI «> DT0S»1K 

(LIMITS OK 

(TSTLO ■ OT0S-1KT 

( 

(TSTHI ■ TSTLO • 0T0S.1K ? 

(TSTL0«TSTHI«DTS1K,D0NIT USE IT 

(INC TSTLO TO DT0S.1K+1 

(LIMITS NOW OK 

(DTS1K-1 

(FIX TSTHI TO 0TS1K-1 



44 
45 
46 
47 
46 

49 01176 820136 EXC.RI 

50 0117/ 024134 

51 01200 106033 

52 01201 002404 

53 01202 101400 

54 OU0J 0244B5 

55 01204 B0O733 

56 01205 V00OO0 EXC.3I 

57 01206 000033 K33I 
5B 01207 001352 ILSTRI 
59 01210 000000 EX. SGI 



LOA 0, TSTHI 

LUA l.PHSHI 

ADCZ* 0.1, SNC (DONE ALL? 

JMP »EXC,3 (YEP RETURN 

INC 0,0 (NOT YET 

LUA 1,EX.SG (GET SEGMT SIZE 

JMP EXC.L (CONTINUE TESTING 



33 

LSTRP 



10033 fNSCM 

U 

32 

■ti I 

04 01213 ii20!3b LD.NI": 

515 «>1214 101300 

06 01213 103120 

07 811216 MH37 
98 01217 «)20136 
>1B i!- 122a UllW" 

10 01221 1013s)v) 

11 01222 103120 

12 01223 126000 

13 £1224 i a jw f « 

14 01223 /)4i)140 

15 01226 £02401 
16 

17 01227 c '[»»)<»t)0 LD.S3! 



IMAP OOESMT EXIST SO SIMPLY SET SCRLU/NI LIMITS 
I I TSTLO/MI 



LOA H.TSTLO 
MOVS 0,0 
ADDZL 0i0 
S1A 0,SC»LO 
LUA 0.TSTHI 
INC 0,0 
MOVS trU 
AUDZL 0,0 
AUC 1,1 
AUO 1,0 
STA 0.SCRHI 
JMP »L0.S3 



ITSTLO * 1024 » SCRLO 



1-1 AC0 

I (TSTHI«1024)-1«SCRHI 

(RETURN LIMITS SET 



10034 MNSC« 








Ml 






» T "NT T- 


•TEST INITIAL 


02 






ISKUUt" 


iCE THRUUGH Tl 


03 






IH)S tACH TtST 


LOAD: 


04 


«123u 


054430 


TINIT: 


ST» 


3,X 


<l)S 


01231 


1024B0 




SuH 


0,0 


0b 


1S1232 


t?40427 




STA 


0,N 


07 


01233 


<:?bl*5 




LUA 


1,« 


08 


if 1234 


.534425 




LUA 


3,~ 


^a 


01231) 


166415 




SOBS 


3,1 


in 


(1236 


■?024i!2 




JhP 


»XT 


n 


4,1237 


E2O104 




LOA 


«,T 


12 


D124;) 


1170^1" 




AUD 


0,3 


13 


0)241 


£314lf 




LPA 


2,0 


U 


*1242 


If 2400 




Sub 


0,0 


15 


01243 


M137F 




STA 


0,- 


16 


01244 


<41377 




STA 


0,- 


17 


01245 


f.34414 




LDA 


3, Mi 


16 


0124b 


■■ 24)06 




LDA 


1,K 


la 


H1247 


166i"32 




AUC2« 


3,1 


2«l 


»12bti 


* 4 4 




JI1P 


TIN 


21 


«I1251 


^26411 




LDA 


1,» 


22 


01252 


124014 




COM* 


1,1 


23 


01253 


1P2C.10 




AUC 


0,0 


24 


01254 


«410t)l 


TIUIPI 


STA 


0,1 


25 


01255 


01 04^4 




I5Z 


NPR 


26 


01256 


101000 




*0V 


0,0 


27 


01257 


U00754 




JMP 


TIN 


2b 


UI26ti 


*)0O0k50 


xhnu 







2a 


H12B1 


/ 


NPHQGl 







30 


fl 2*2 


00 0230 


T I H t L : 


LAUTO 





IZt 

HE INITIALIZE AOURtSSES 
tO ALONG <UTH LINKER 
TInI 

(START «ITH PGM * 
PROG (PROG TO 1NIT 
LPCMR 

PROG (NEXT PROG TO IMT 
,SNR (SKP IS NOT DONE ALL 
INI (EXIT ALL PROGS INITECI 
TBL 



,3 



(GE INIT A0R5 



IS ■» AC1 



2,2 (PASS CNTR 

1,2 (ERR CNTR 

PROG (CHECK 

4 

,SZC (IP PROGRM 

IP (NOT YET 

TINTL (CHECK AUTO FI..G 

,SZR ISKP IS NOT AUTO START 

(-1 IF AUT05TART 
,2 MAIT SN 
OG (STEP TO NXT PROG 

IT*3 (ANO 00 AGN 



(POINT TO AUTO PLG 



10035 hmslm 

02 01263 04OH3 LPRGO: 

03 01264 M30104 

04 0126b 113OO0 

as >ii26b ossaoa 

?6 IT 1 £67 054114 

07 01270 io3 I w« 1 

08 01271 1510O5 

09 01272 030407 
It) £1274 05.1112 

11 01274 0)4112 

12 1)1275 031402 

13 1)1276 050117 

14 0127/ O024O1 

lb 01300 OA00&0 LR.S3I 

16 O1301 00O560 L*.K9: 

17 

lb 01302 054433 SETML: 

19 IMN 020120 

2k) 01304 126621* 

21 01J0S 123415 

22 ol30b 00O425 

23 »1307 101120 

24 ujili" 101220 
2b 01311 O4O120 

26 01312 060277 

27 01313 O06O71 GTPMS: 

28 01314 0B2557 

29 013LQ 004421 
3d kil316 030131 

31 01317 112032 

32 2132V 000773 

33 01321 040133 

34 01322 06)4414 

35 01323 030132 
3b 01324 112433 

37 01323 00)0766 

38 0132b 040134 

39 01327 024133 

40 (M330 122423 

41 01331 00076? 

42 01332 6106074 SETMX! 

43 01333 060177 

44 01334 0O24O1 

4b 01335 0190610? SETS3I 

46 

47 01336 054411 TTIN! 

40 01337 006411 

49 01340 030403 

50 01341 12100» 

51 01342 £172405 
52 

53 01343 020403 PkTQI 

54 01344 006405 

55 01345 0C0772 

5b 01346 000077 8ST: 

57 01347 O000O0 T1IS3S 

58 01350 06)1735 TT.OEl 

59 01351 001671 LCHARI 



(SE1 PROGRAM START/ENU AOPRESSES 



STA 0.CURPR 
LOA 2.TTBL 
ADO 6J,2 
LUA 3, 61, 2 
3TA 3,PSTRT 
LUA 2,1,2 
«0V 2,2,SNR 
LUA 2.LK.K9 
STA 2.PLNDA 
DSZ PENDA 
LUA 2,2,3 
STA 2,SEGMT 
JMP #LR.S3 

LSYEE 



ICURRtNt PROG » 
(LAST LINKR Z10L'*1 
1A2«PMTK to param adrs 

(START ADORES OF PRI> 
(SET START OF NXT PGM 
|»61 IS LAST TtST 
|AND «E USE NMAX 

IHEAL END OF THIS PGH 
IGET SEGMENT SUE FOR TEST 
(SAVE IT 



ISE1ML-SET MEMORY LIMITS IF SN0«1 



SIA 3.SETS3 
LUA 0,S«R6? 
SUBZR 1,1 

AND* 1,0, SNR 

JMP SETMXtl 
MOVZL 0,0 
MUVZR 61,6) 
STA 0,SnRG2 
INTDS 

JSR CLMtSb 
TXT.0 
JSR TTIN 
LOA 2.PHSL* 
AOCZ* 0,2,SZC 
JMP GTPMS 
STA O.PHSLO 
JSR TTIN 
LOA 2.PHSHX 
SuBZH 0,2,SNC 
JmP GTPMS 
STA P.PHSHI 
LOA l.PHSLO 
SUDZ 1,0. SNC 
JMP GTPmS 
JSR #PCRLF 
InTEN 
JMP #SETS3 



ISAVE RETURN ADOZRESS 
IGET MEM LIMIT FLb 

IIS BIT 6J SET? 

INOPE, EXIT 

ICLR BIT V 

ILLS MEM LMT FLG 



ITEXT FOR PMSLO.PHSHI 

(INPUT FROM OPERATOR 

IGET L0« PHYSICAL ADDR. 

|PHSLO»>PHSLX? 

(NO, TRY AGAIN 

(PLACE INPUT IN PHSLO 

IINPUT FROM OPERATOR 

IGET HIGH PMTSICAL AODR, 

|PHSLO<«PMSHX? 

|nO,TRV AGAIN 

|NE» PHSMI LIMITS 

IGET PHSLO LIMIT 

IIS PHSMI>PH3L0 ? 

INOPE, THY AGAIN 

ICRLF 

(RETURN 



IINPUT HANDLER FOR MEMORY LIMITS 



STA 3,TrIS3 

JSR »TT.OE 

JMP PRTtl 

MOV 1,(1 

JuP 0TTI53 

LOA 0,QST 
JSR *LChAR 
JMP TTIN+1 
077 
3 

TID? 
CHC7T 



IERROR IN 

IRETURN 



INPUT 



ITRY AGAIN 
I "»" 



10036 MNSCM 

01 ILS1RP-START PROGRAM 

.,2 (ENTER TEST 5ELECTED AT ITS EXECUTION ENTRY POINT 

03 01352 054413 LSTRP: STA 3,L,SS3 

614 01353 16)2406) SUB 0,0 

6)5 t'1354 040W1 STA 0.ITRER 

JJD 01355 o2M14 LUA 6),PSTRT 

07 01356 6)40410 STA a.LSMl 

08 01357 111000 MOV 0,2 
19 01360 126400 SUB 1, 1 

10 01361 045375 STA 1,-3,2 

11 01362 002404 JMP 0LS.U 

12 1LRETP-RETURN FROM TEST PROG CALL 

13 01363 060177 LRETP: INTtN (ALLOR INTR NOR 

14 01364 002401 JMP 0L.SS3 

15 01365 000000 L.SS3I 

16 0136b 00000" LS.I1I 



ICLR ERR-CTR FOR THIS PASS 



10037 MNSLM 

"1 ItNO OF TEST PASS, SEE IF ANY EXTKANEOUS ERRORS 

«2 (NEED TO BE REPORTED 

03 nlJf? *34466 LSTAT: STA 3.LST.3 

04 H1370 033114 PKSKII LOA 2,PSTKT IPTk, TO XX. 0k) 

«!> t'137l <IU7( ISZ -2,2 |*1 R U N CTR THIS TEST 

06 t>i372 1011100 muv 0,0 

37 01373 «2«12/i Ll)» 0,S«RS2 (CHECK 3»KEIi2 

08 01374 10312S AOOZL 0,0, SnC ;8I1 1 ■ 1? 

as. 0137s n«,i4i4 jmp pks0i inope 

1? 01376 025375 LOA 1,-3,2 (SET ERKOK CnTR FOR THIS TEST AND PASS 

11 01377 125004 MOV 1,1, SZR (SKP • PRINT PA5StD,N0 ERRORS 

12 01400 0004U JMP PRS01 (OON'T PRINT PASSED 

13 111401 0«t>074 J5R «PCKLF 

14 01402 i»2<iU4 LuA 0,PSTHT 

15 01403 101400 INC 0,0 
lt> 01404 101400 INC 0,0 

17 01405 1 n 1 d *> 01 I N C 0,0 

18 01406 «.l»h»75 JSR »EHRTX (PRINT rEST TITLE 
IS 01407. «in&07] JSR #LMESS 

20 01410 001475 PASTX /ADDRESS OF PASS MSG 

21 01411 02«i12k PRS01I LUA 0,S«RS2 ("BIT 16 IS TYPE ALL STATS 

22 01412 126520 SUPZL 1,1 

23 01413 107405 AND 0,1, SnR (BI1 15 ON? 

24 01414 000435 JMP LSX1T [NOBODY'S INTERESTED 

25 K.1410 101220 MUVZR 0,0 

26 B1416 10112;? "UViJL 0,0 

27 01417 B40120 STA P,Sl«RG2 (DON'T PRINT TKICE 

28 01420 102400 SUB 0,0 

29 01421 H40433 STA 0,PK,SV /START f I I H 



1003B mnSCM 

•H n'RINT PASStS AND ERROR COUNTS bY INDIVIDUAL TEST 

*2 211422 006071 JSP SLMtSS 

03 01423 001456 STMUR 

04 01424 »0oi74 JSR (PCRLF 

05 01425 024427 PkSTL: LUA l.Pk.SV 

00 01426 010426 ISZ PK.SV (STEP IT TO NEXT 

07 01427 0341W4 LOA 3,TTBL (POINTS TO TEST 

38 01430 137000 AUD 1,3 (NO* TO CURRENT TEST 

0M 01431 C3140B LOA 2,0,3 ISET "XX, 00" AORS 

10 01432 151005 MOV 2.2.SNR («B IS TYPED ALL 

11 01433 .100416 JMP LSXIT (RETURN FROM WHENCE 

12 tl434 021376 LhA 0,-2,2 [SET PASS CTR 

13 01435 1010ij5 MOV %0,SNR |SM> IF TEST EXECUTE!} 

14 n|43o .100767 JmP PkSTL (TEST NEVER ENTERED 
16 01437 H516072 JSR »PZOCT (TYPE TES1# 

16 0144u 025376 LOA 1,-2,2 (SET « PASStS 

17 ^1441 006070 JSR »PDECI (PRINT IT 

16 01442 025377 LOA 1,-1,2 (SET ACCUMULATED ERR8 

IB 01443 «.06070 JSR »P3ECI (PRINT * ERRS THIS TEST 

20 01444 025375 LUA 1,-3,2 (SET ERRS FOR THIS PASS 

21 01445 125004 MOV 1,1, SZR (•& OON'T PRINT 

22 01446 1006070 JSR *POECI (PRINT ERRS FDR THIS PASS 

23 01447 aP6074 JSR #PCRLF 

24 01450 000755 JMP PHSTl 

25 01451 010113 LSXITl ISZ CURPR (INC CUR PSM POINTR 

26 01452 101000 MOV 0,0 (DELETE SKIP 

27 01463 002402 JMP #LST,3 (RETURN 

28 UI454 000000 Pn.SVI 

29 01455 000000 LST.3I (SAVE AC3 

30 01456 005215 SIHOR: .TXTE I <15»< 1 2>TST»<1 1>PASSE3«1 1>ACERRS<1 1 »PSERRS 1 

31 0147a 050240 P1STX: .TXTE I PA SS£D«15><12> 1 



10039 MNSC" 

«l (CHECK FOR TTI INPUTTED CM»R»CTERS 

02 B1S02 i<54440 CKKEYI ST* 3,CK.S3 
LU* 0,L»STI 



513 01503 ,920125 

34 01304 1*11123 
05 0IS0b 002435 

at ai50b 101220 

07 81507 040125 
36 01510 fc&b433 
09 (1151 1 1510O0 
1H 01612 030120 

11 141513 1924431 

12 01514 122425 

13 B1515 O0U417 

14 01516 101405 

15 U1517 000411 
lb 01520 »241o5 

17 01521 122425 

18 01622 000410 

19 01523 1124424 

20 0»bS4 136414 

21 01525 000414 

22 015!>t- 126320 

23 U1527 0*0406 

24 01530 024415 W4S.Pl 

25 01531 000404 

26 01532 126623 MS.TS 

27 01533 00O402 

28 191534 024412 MS.O: 

29 01535 147414 XOR.Tl 
38 01536 132401 

31 01537 133^190 

32 01540 05(9120 

33 01541 102401 CK.341 

34 01542 00*000 Cn, S3: 19 

35 81543 002106 KEYINi INP7 

36 01544 UM121 CK.K1I 121 

37 0154b 1940000 CK.K2I lbl 

38 0154b 020000 CK.K3I 1112 

39 01347 O0O023 CK.231 23 
40 

41 (TTY INTERRUPT h»N0LER 

42 0155J 060610 Tr.TII OI*C t),TTI 

43 olb51 024416 



MOVZL 0,0|SNC 
JMP »CK,S3 
MOVZR 0,0 
ST* 0,L»STI 
JSR 0KEYIN 
MOV 3,0 
Lu» 2,S«RG2 
LU* 1,CK.K1 
SU8Z 1,0, SNN 
JMP MS.O 

inc 0,0, s^r 
jmp ms.p 

LU* I,K* 
SUBZ 1,I9,SNR 
JMP MS.T 
LU* 1,CK.23 
SUBB 1,3,SZK 
JMP CK.3* 
SU6ZL 1,1 
JMP XOR.T 
LU* 1,CK.K2 
JMP XQR.T 
SUSZR 1,1 
JMP XOR.T 
L0» 1.CK.K3 
»N0« 2,1,SZR 
SUB 1.2.SKP 
»U0 1,2 
ST* 2,S«RS2 
JMP »LK.S3 



(TTI HEOUEST? 
IN0PE1 

(CLR FL*G 

(YEP GO TO KEY IN SERVICE 

(CURRENT CONTENTS OF SWRG2 

(■121 

(CHECK FOR » "0" 

riT ms * "u" 

(CHECK IT FOR » "P" 
(FOUND » "P" 



0040 MNSCM 

01 01572 040125 TT.P7I 

02 01573 054403 

03 01574 006747 

04 01575 002401 

05 01576 000000 TT.S3: 



ST* 0,L*STI 

ST* 3,TT,S3 

JSR 0KEYIN 

JMP »TT,S3 



(SERVICE TTI REQUEST 



44 01352 123400 
4b 01553 024125 

46 191554 125123 

47 fcl55b 000407 
46 01556 024412 
49 0105/ 10b415 
5B 0156* 000412 

51 01561 o244[0 

52 01562 100415 

53 01563 O0»4o7 

54 01564 103240 TT.Dli 

55 01565 04,4125 
5b 01560 001400 

37 01567 000177 TT177: 

58 0157o 000004 TT.04I 

59 01571 000022 TT.22: 
S0 



LD* 1.TT177 

*ND 1,0 
LD* 1,L»STI 
MUVZL 1,1, SNC 
JMP TT.UI 
LD* 1.TT.B4 
SUBB 0,1, SNR 
JMP TT.PT 
LD* 1, TT.22 
SUBB 0, l.SNR 
JMP TT.P? 
*DDUR 0,0 
ST* 0,L*STI 
JMP 0,3 
177 



MS * "T" 



(CHECK IF II 
(IT MS 

(»23, CONTROL S 
(SKP IS CONTROL S 

(IT MS 

(«1B1 



(■1B2 

[X0R *C1 WITH «C2 
(PUT NE« BIT IN S»RG2 

(ADDRESS OF TTYINTR P*CK*GE 



(check if l»st int* serviceo 

(skp • not serviced 

(ms serviced, dismiss intk 

(check for (c)d 

(skp is not (c)0 

(it n«s go to tti service 

(check for ic)r 

(Skp > not cor 



(PL»Cfc IN L*STI NITM BIT SET«1 



10041 M.NSCM 

01 

02 

03 

•»« 

05 
at 

07 
06 

09 

l« 

u 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2b 
27 
26 
29 
30 
51 
32 



IHLEnAMEsTTYIO 

/TELETYPE NUN INTERRUPT PACKAGE 

(AC1,AC2 SAVED 

("ME37" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLER 

("CLF7" PRINTS A CARRIAGE RETURN 

C'PUC?" PRINTS C(l) IN UCTAL 

("Z0C7" PRINTS C(l) IN UCTAL, LEADING ZEROS SUPPRESSED 

("PUE7" PRINTS C(l) IN DECIMAL, LEADING ZEROS SUPPRESSED, 

MHt ABOVE THHEt ARt FOLLOWED BY A TAB UNLESS LOCATION PTB7 IS 

IALTEREO IN WHICH CASE CONTENTS OF PTB? KILL BE PRINTED AFTER 

ITHE NUMBcR, 

("TI07" ACCEPTS OCTAL, AND 

("TID7" ACCEPTS OECIMAL SINGLE PRECISION SIGNED INTEGERS 

UNTO AC1 FROM THE TT1, LEADING NULLS, TA8S, 

(AND SPACES ARE IGNORED. A lb BIT UNSIGNED INTEGER IS 

(l-ORMEO, THEN NEGATED IF A MINUS SIGN IS TYPED, 

(EXIT AT CALL»1 IF INPUT ERROR «ITH AC0»BAD CHARACTER. 

I (NOT A LEGAL UIGIT OR TERMINATING CHAHACTtR) 

IEXIT AT CALL+2 UPUN TERMINATING CHARACTER 

I «1TM ACu«0, 0, 48, 12, 55 

; for null, tab, space, carriage return, comma 
;the above «ait fur tto done, then clear ttu. 

("CHCJT" PRINTS ASCII CHARACTOR In CC0)K( CtBJL MUST BE 0. 

(CX1TS CALL + 2 IF Cla}R«0( SIMULATES TAB 

!"TYP7» points CC0)R. EXITS AT CALL*1. REPLACE "TYP7" HITH 

UNTEHRUHT 1YP7 IF DESIRED. 

("TPS7" PRINTS A SPACE AND EXITS AT CALL+1 MTH AC0 ■ 40 



01377 054524 MES7! 

0lb?<0 044466 

01U01 050466 

33 01602 «Ha521 

34 01003 031400 
3t> 01004 024464 

36 01605 021P0P 

37 01600 125112 
36 01607 123701 

39 01610 184401 

40 mien 15140V 

41 01612 124000 

42 01613 004456 

43 01614 000771 

44 01615 00:5402 

45 01616 004453 PLS7TI 

46 01617 o24«47 PEX7T: 

47 01620 030447 

48 01621 063511 

49 01622 000777 

50 0(623 101000 

51 01624 060211 

52 0162b 002476 

53 01626 1«2441 ZUC7I 

54 01687 030563 POC7! 

55 01630 050437 

56 01631 030565 

57 01632 000404 

56 01633 050434 PUE7: 
59 01634 030572 
68 01635 1024091 



STA 


3,MES7R 


(PRINT A TEXT MESSAGE 


STA 


1,PAC?1 




SI A 


2.PAC72 




ISZ 


MES7R 




LUA 


2,0,3 


;C(2) POINTS TO MESSAGE 


LOA 


1 ,PJ777 


>A 8 BIT MASK 


LUA 


0,0,2 


(C(2)»DATA nORD 


MOVL» 


1,1, SZC 




ANDS 


1,0, SkP 




AND 


1,0, SkP 


(C(0)»OATA CHARACTOR RIGHT 


INC 


2,2 


(INC TO NEXT XORD 


COM 


1,1 


(FLIP MASK 


JSR 


CMC7T 


(PRINT 


JMP 


MES7*6 


(ANOTHER 


JMP 


.♦2 




JSR 


CMC7T 




LUA 


1,PAC71 




LOA 


2.PAC72 




SkPBZ 


TTO 




JMP 


.-1 




MUV 


0,0 




NIOC 


TTO 




JMP 


»MES?K 


(LAST 


SUB 


0,0, skp 




LD* 


0,PCS70 




STA 


2.PAC72 




LUA 


2.0CT7AB 


(PRINT CCl) IN OCT, 


JMP 


.+4 




STA 


2.PAC72 




LUA 


2.0EC7TB 


(PRINT CCl) IN dec: 


SuB 


0,0 





0042 mnSLM 

01 01636 1*54405 

02 01637 H44427 

03 0164m 04<j425 

04 01641 050401 

05 B1642 000000 0EC7OCI 

06 01643 -"10777 
37 01644 020571 
06 01645 151005 

09 01046 000750 

10 «.]647 034416 

11 01650 102400 

12 M1651 146452 DED7T: 

13 01652 000405 

14 01653 146400 

15 01654 0345J6 

16 «Mo5l) 101400 

17 01056 '000773 

IB 01657 151235 0t:7Pi 

19 01660 03453? 

20 01661 054404 

21 01662 163004 

22 01663 U04406 

23 01664 B0O756 
24 

26 01665 0005100 ZSU7P! 

26 01666 i,00000 pai:?i: 

27 01667 000000 PAC72I 

28 01670 030377 P3;'77: 

29 01671 054431 CHi:?T: 

30 0167* 101315 

31 01673 001401 

32 01674 034425 

33 01675 116415 
34 

35 01o76 000403 

36 01677 ^04540 

37 01700 002422 

3B 01701 004535 Ch*?31 

39 01702 «20416 

40 01703 034414 

41 01704 163404 

42 01705 000774 
43 

44 01700 /40412 

45 01/07 002413 
46 

47 01710 054413 CLF7I 

48 01711 044755 

49 01712 050755 

50 017t3 020554 

51 01714 004755 

52 01715 5120515 

53 01716 000700 
54 

55 01717 B0M0b7 PC77I 

56 01720 0000J0 CHR7Z: 

57 01721 000011 PCI III 

58 01722 000000 CHP7T: 

59 0172J 010000 ME<i?R: 
50 01724 <i2u506 TUT! 



Sf a 


3.MES7R 


STA 


1.PAC71 


STA 


0.ZSU7P 


SI A 


2,.*1 







ISZ 


.-1 


LUA 


0.PTB? 


MUV 


2, 2, SNR 


JMP 


PLS7T 


LUA 


3,75U?P 


SUB 


0,0 


SUBQ* 


2,1, SZC 


JMP 


0EC7P 


SUB 


2,1 


LDA 


3.PCS70 


INC 


0,0 


JMP 


DEC7T 


MOVZR* 


2,2,SNR 


LUA 


3,PC670 


STA 


3.ZSU7P 


AUD 


3,0,SZR 


JSR 


CHC7T 


JMP 


0EC70C 














377 




STA 


3.CMS7T 


MOVS* 


0,0, SNR 


JMP 


1,3 


LUA 


3.PCI71 


SUB* 


0,3, SNR 


JMP 


CHA73 


JSR 


TYP7 


JMP 


0CHH7T 


JSR 


TPS7 


LUA 


0.CMR7Z 


LOA 


3,PC77 


AND 


3,0, SZR 


JMP 


CMA73 


STA 


0.CHR7Z 


JMP 


#CHR7T 


STA 


3.MES7R 


STA 


1.PAC71 


STA 


2.PAC72 


LUA 


0,PC175 


JSR 


CMC7T 


LUA 


B.PC172 


JMP 


PLS7T 



(BOTH ENTRYS PRINT NUMBER 
(THEN TAB TO NEXT POSITION 
(A"lDA 2,TABLt» INSTRUCTION 



(IF TABLE ENTRY»0 
(EXIT KITH A SPACE/TAB 
(ZEROS SUPPRESS STUF 



(FORM THE OIGIT 



(CCB)'OIGIT 

(MAKE ASCII 

(PRINT 

(GET NEXT DIGIT 



(PRINT CC0) RIGHT 
(RETURN *2 IF NULL 

(AC3 ■ 11 

(SKIP IF A TAB IS NOT TO 

(BE SIMULATED 

(PRINT IT 

(EXIT 

(PRINT A SPACE 

(AC3 » 7 

(SIMULATE A TABE HITH 1 
(TO 7 SPACES 



(SAVE RETURN 



(PRINT CARRIAGE AND LF 



0.PC172 



0043 MlsSCK 



01 «I725 


004512 




JSR 


TYP? 




02 el/20 


010775 


T1X?1 


ISZ 


MES?R 




03 oi727 


024737 


UR?: 


LD» 


1,PAC?1 




04 01730 


034735 




LD» 


s,zau?P 




as 01731 


175102 




MOVL 


3, 3, SZC 




86 £1/32 


124400 




NEG 


1.1 




07 01733 

08 

«9 01734 


070665 




JMP 


PEX?T*1 




102121 


TIO'/I 


AOCZL 


0,0, SkP 


(OCTAL ENTRY 


IB 01735 


102440 


TID?I 


SUBU 


0,0 


(DECIMAL ENTRY 


11 HI/3o 


054765 




STA 


3,MES?R 




12 01737 


050730 




STA 


2.PAC72 


(AC2 IS SAVED 


13 Id 1740 


030472 




LUA 


2,PC1?2 




14 01741 


113000 




ADO 


0,2 




1!) 01742 


102440 




SUBU 


0,0 




16 01/43 


04O722 




STA 


O.ZSUTP 


(MINUS SIGN AND LEADING SPAI 


17 










(FLAG 


IS 01744 


034721 


TIS71 


LOA 


3,ZSU?P 




19 0174S 


175004 




MOV 


3,3,SZR 




20 01746 


000760 




JMP 


TIX? 




21 01/47 


054717 


TI*?! 


STA 


3,PAC?1 




22 01750 


063610 




SKPDN 


TTI 




23 01751 


0007/7 




JMP 


.-1 




24 017S2 


10100? 




MUV 


0,0 




2S 01753 


060610 




DIAL 


0,TTI 




26 01754 


004715 




JSR 


CMC?T 




27 01755 


034436 




LOA 


3,PC4?0 




28 01756 


116414 




3UU0 


0,3,3Z« 




29 14175/ 


101H15 




MOV« 


0,0, SNR 




30 0176o 


000764 




JMP 


TIS? 


(SPACE, TAB, OR NULL 


31 01761 


024434 




LUA 


1,T1N?2 




32 01762 


106015 




Auce 


0, 1,SnR 


(COMMA 


33 01763 


000743 




JMP 


TIX? 


(OR 


34 ill/64 


l"b424 




SU8Z 


0,1, SZB 


(MINUS 


35 01/65 


000405 




JMP 


TIM? 


(IF NEITHER THEN GO TO TIM? 


3b 01/66 


034677 




III* 


3,ZSU?P 




37 01767 


177200 




4UDH 


3,3 


(COMPLEMENT SIGN 


3b 01770 


054675 




STA 


3.ZSUTP 




39 01771 


000757 




JMP 


TIW?*l 




418 01772 


136415 


TIM?: 


SUB* 


1 ,3,SnR 


IIS IT A CARRIAGE RETURN? 


41 01773 


000731 




JhP 


TIC? 


(IF CK IHEN GO TO TIC? 


42 01774 


024420 


TIN?! 


LOA 


1,T1N?1 




43 01775 


10/022 




AODZ 


0,1, SiC 


(SKIP IF NOT A DIGIT 


44 0177b 


146513 




SUBL* 


2,1,SNC 


(SKIP IF UIGI1 


45 01777 


000730 




IMP 


TIR? 




46 02000 


010665 




ISZ 


ZSU?P 


I0U1 OF LtADING SPACES 


47 02001 


02O66S 




LOA 


0,PAC?1 




46 O2002 


101120 




MOVZL 


0,0 




49 02003 


115120 




MOVZL 


0,3 




50 02o04 


17512? 




HUVZL 


3,3 




51 02005 


13/000 




ADO 


1,3 


(B OLD PAC?l'S ♦ NEN DIGIT 


52 02000 


145220 




MUVZR 


2,1 




53 020l»7 


125232 




MuvZR* 


1,1, szc 


(SKIP IF UCTAL rtOOE 


54 02010 


117000 




AUO 


0,3 


(AOO 2 OLU PAC?1'5 


55 02011 


000736 




JMP 


Tin? 




5b 02012 


400060 


PC6?0! 


60 






57 02013 


000040 


PC4?0t 


4U 






5b 02014 


177720 


tin?i: 


-60 






59 02013 


000055 


tin?2: 


55 






50 0201b 


H30555 


0CT7ABI 


LUA 


2,.*i«.-osc?oc 





0044 MNSCM 








01 02017 


100000 




100000 




^^ 02020 


010000 




10000 




03 02021 


001000 




1000 




04 02022 


000100 


C10?0I 


100 




05 02023 


000010 




10 




06 02O24 


000001 




1 




07 02O25 


000000 









0b 02026 


030565 


DEC?TB1 


LOA 


2, ,«U.-OEC?0C 


09 


000012 


,KDX 10 






10 02027 


O23420 




10000 




11 02o30 


001750 




1000 




12 02031 


000144 




100 




13 02o32 


000012 


PCl?2i 


10 




14 02033 


000001 




1 




15 02034 


0000 









16 


000010 


,r<OX 


B 




17 










18 02035 


000011 


PTP?I 


11 




19 










20 0203b 


020755 


TPS?I 


LOA 


0,PC4?0 


21 02037 


054431 


TYP?! 


STA 


3,TYP?R (TYPE 


22 02040 


034426 




LOA 


3, INT? 


23 










24 










25 02041 


175004 




MOV 


3,3,SZR 


26 02042 


»34065 




LUA 


3,S*RfcG 


27 02043 


177100 




AUDL 


3,3 


26 02044 


175112 




MUVL« 


3, 3, SZC 


29 










30 02045 


000405 




JMP 


PLP?T 


31 02046 


063511 


TPT?YI 


SKP6Z 


TTO 


32 02047 


000777 




JMP 


.-1 


33 02050 


101000 




MOV 


0,0 


34 02051 


061111 




DOAS 


0.TTO 


35 02052 


034413 


PLP?T: 


LOA 


3,P17?7 


36 02053 


163400 




AND 


3,0 


37 02054 


034411 


TPR?T! 


L0» 


3,P17?7 


38 02055 


115043 




toco 


0,3,SNC 


39 O2055 


034735 




LUA 


3,PC4?0 


40 0205/ 


162432 




SuBZ* 


3,0, SZC 


41 










42 02060 


010640 




ISZ 


CMR?Z 


43 02061 


t 3 4 4 6 




LUA 


3,PC1?3 


44 02o62 


116445 




SUBU 


0,3, SNR 


45 02063 


054635 




SI A 


3,CHR?Z 


4b 02064 


002404 




JMP 


»TYP?R 


47 










46 02O65 


O00177 


Pl7?7! 


177 




49 02066 


1777/7 


InT?i 


-1 




50 02067 


000015 


PC1?5I 


15 




51 "207o 


000000 


TYP?R! 


w 





(PREPARE TO PRINT A SPACE 
TNE RIQMT BYTE OF ACfl 

(IF IT IS MERE DUE TO SNITCH 
(SETTING ROUTINE THEN THE TYPE 
IUUTS TO THE TTY HILL BE ENABLED 

(READ THE SWITCHES 
(SHIFT AC3 BY 2 PLACES 
(SKIP IF TYPEOUTS ARE NOT 
(SUPPRESSED 



(STRIP THE PARITY BIT 
(AC3 ■ 177 

(SKIP IF IT HAS A RUBOUT 
(AC3 * 40 

(SKIP FOR NON PRINTING 
(CHARACTEKS 



(AC3 • 15 

(SKIP IF IT HAS NOT A 

(CLEAR HORZ POS 



'CR" 



10045 MNSCM 

01 

32 

A3 

3 4 

as 

36 
37 
0B 

09 

IB 
11 
12 
13 
14 
16 
10 
17 
16 
19 
2D 
21 
22 
23 
24 
25 
26 
27 
28 
2S 
3D 
31 

32 32«i71 033136 IN1?36: 136 

33 02372 033104 IN1?04( 104 

34 n2»7J <!3«j122 IM722I 122 
3b B2d74 01M333 I*C?33: 
3b 02tf75 e«0003 INL?K: 

37 02376 033330 INR?T: 

38 02377 030300 INS73: 

39 021010 030303 InS?1I 

40 02101 30)0303 INS?2i 

41 02102 03030B INS73: 

42 32103 030908 INS?C: 

43 02134 330206 INST: 

44 02133 ,«n«[l^« Svp?tb: 
46 

40 32106 05477B INP?: 

47 t>21»7 04-)77n 

40 02113 0447/3 

49 32111 35077O 

30 02112 175200 

51 02113 m54770 

52 «12114 1764*),? 

53 02113 354751 

54 02116 036374 

56 32117 343756 
5b 0,2123 U20125 IN??: 

57 32121 024746 
38 02122 IP16415 
39 

6a 02123 333527 JMP 



(FILENAME' SwrPACK 

M HIS PACKAGE IS USED TO CHANCE THE SETTINGS OF LOCATION 

("S»HtG" UF PABt If). THE PROGRAM CONTROL SHOULD ENTER "INP?" 

I»I1H AC3 HAVING THE RETURN ApORESS, THE CHARACTER 1NPUTED 

IBY THE OPEKATOK IS ECHOED AFTER A »CR", IF THE COMMAND IS 

(NOT A LEGAL ONfc THfcN THE CUNTROU IS RETURNED WITHOUT OOING 

(ANY THING. OTHERWISE ONE OF THE FOLLOWING COMMANDS IS 

[EXECUTED: 

(KEYS 1-9 AND A-F ARE USED TO COMPLEMENT THt CUKRtNT VALUE 

FOF BITS 1-15 OF "SmREG", IF ONE UF THESE KEVS IS HIT THE 

(CORRESPONDING BIT OF "SWREG" IS COMPLEMENTED ANO THE CONTROL 

IIS RtTuRNEu 10 THt STATE PROGRAM HAD BEFORE HITTING THE KEY 

(TYPING OF A "0" BILL LUCK IHE PROGRAM IN A SWITCH MODIFICATION 

(MODE IN »H1CH CASE MORE THAN ONE BITS CAN BE CHANGED BfcFURt 

ITHfc CONTROL IS ALLuWtO TO RETURN TO THE MAIN PROGRAM. HITTING 

(THE "CR" KEY MILL UNLOCK THE PROGRAM FROM THIS MODE. 

("aU» THIS COMMAND GIVEN AT ANY TIME WILL RESET THE "SWREG" 

(TO OtFAULT MOOt (ALL ZEROS} ANU RESTART IHE PROGRAM AT ADD. 

(STORED IN LOLATIUN "INS?" 

("»R" THIS COMMANND GIVEN AT ANY TIME WILL RESTART THE PROG. 

(AT ADDRESS STORED IN LOCATION "INS?" 

("M" THIS CUMMArtO GIVEN AT ANY TIME WILL PRINT THE CURRENT 

(OPERATING MODES, 

(BEFORE THE CONTHUL IS RETURNEO Tu THfc MAIN PROGRAM BIT WILL 

(BE SET IF ANY OF THE OTHER BITS UF "SWREG" IS SET, OTHERWISE 

(IT "ILL BE CLEARED 



(THIS PACKAGE EXITS WITH CCAC3) 
(STRIPPED) . 



33 





CHARACTER TYPED IN (PARITY 










STRT? 













STA 


3, 


.INR?T 


STA 


3, 


,INS?0 


STA 


1. 


.INSJI 


STA 


?, 


.INS?2 


MOVR 


3, 


,3 


STA 


3, 


,INS?C 


Sub 


3 


,3 


STA 


3, 


.INT? 


JSR 


»ICLF? 


STA 


»i 


.INL?K 


LUA 


a, 


,LASTI 


LUA 


ii 


.PC1?S 


Subs 


a. 


,1 ,SNR 



(SAVE THE RETURN ADDRESS 

(SAVE AM 

(AC1 

(AND AC2 

I 

(SAVE CARRY 



("INL?K" IS NOT -1 

(READ THE INPUT 

(AC1 • 15 

(SKIP IF THE CHARACTER TYPEO 

(WAS NOT "CR" 



INR? 



0046 MnSLM 

31 32124 e43756 
H2 02123 e2467S 
li 12126 0J4704 
34 1.1212/ 116414 
0b 02133 334744 
0b 02131 162462 
37 

Mb 0213* .'(MS i? 2 

19 182133 004734 If 1?J 

If 32134 334655 

11 02135 152623 

12 02136 11641)5 
13 

14 0213/ i)0D447 
15 

16 3214*. 151221 Ii*2?: 

17 .12141 126520 
IB H2142 175435 
19 32143 330445 
2b 02144 147415 
21 

22 32143 330773 

23 3214b 1P640" 
24 

25 B2147 1333*3 

26 fe2150 131225 

27 02151 333444 
26 32152 ,524715 
29 32153 167334 
3fc U2154 »,33765 
31 

32 U2163 «3466f INM?: 

33 32156 (154727 

34 3215/ 334634 
35 

36 02163 354653 

37 32161 336374 
36 32162 B36070 

39 32163 334647 

40 .12164 125433 

41 32165 166432 
42 

43 B2166 W4633 

44 H2167 101223 
43 3217a 122414 

46 32171 333771 

47 02172 ,"016374 

48 32173 333365 

49 02174 151143 

50 02175 126563 

51 32176 ^3b372 

52 0217/ 334637 

53 3220/ 151124 
54 

53 02201 ,'33774 

56 322C2 4363/4 

57 32*33 334732 

58 32234 tf54531 

59 32235 «3«,410 
60 



SI A 


0.INSJ3 


LUA 


i,cia?0 


LUA 


3,PCl?2 


Su»« 


3,3,SZR 


lL'» 


3,INC?33 


SuBOW 


3,0,SZC 


JMP 


IN5? 


js« 


TYP7 


LUA 


3,PC5?0 


Subzr 


2,2 


sua 


0,3,SNR 


JMP 


IN3? 


MCVZR 


2, 8,skp 


SUBZL 


lii 


INC 


3,3, SNR 


JnP 


IN.3?*2 


AND* 


2, I, SNR 


JMP 


IN2? 


SuS 


3,1 


MOV 


1,3 


MOVZR 


2, 2, SNR 


JMP 


IN4? 


LUA 


1,PC1?5 


ADD 


3, :l,SZR 


JMP 


IN27+1 


LUA 


3,I>TB? 


STA 


3,SvP?TB 


LUA 


3,PC4?0 


STA 


3,PTB? 


JSP 


MCLF? 


J5R 


»IPUE? 


LUA 


3,PC1?2 


INC 


lil 


SUBDW 


3.1.SZC 


JSR 


TPS7 


MOV^R 


3,0 


SUB« 


1,3,SZR 


JMP 


INM?*6 


JSP 


•ICLF? 


LUA 


2,S«REG 


MOVUL 


2,i! 


SuBCL 


lit 


JSR 


»Ii!OC? 


JSR 


TPS? 


•1UVZL 


2,2,SZR 


JMP 


.-4 


JSR 


»IClF? 


LUA 


3,SvP?TB 


STA 


3,PTB? 


JMP 


I N >l ? 



(Save Character 

(ACl • 100 
(AC3 • 12 

(SKIP IF IT IS A LINE FEED 

(AC3 • 33 
(SKIP IF AC0 IS EUUAL OR MORE 
(THAN AC3 

(ECHO THE CHARACTER 

(AC3 > 6a 

(AC2 • 130030 

(SKIP IF THt DIGIT TYPED WAS 

(NOT 



(SHIFT AC2 TO RIGHT 
(ACl ■ 1 



(STAY IN LOOP UNTIL ALL BITS 
(OF SwRtG AHE CHECKED 



(WHEN THE CONTROL COMES HERE 
(FOR THE FIRST TIME ACl • lit 



(ACl • 15 

(SKIP IF THE COMMAND WAS "M" 



(SAVE PTB? 
(PREPARt TO PRINT A SPACE 
(AFTER EACH NUMBER 

(TYPE A "CR" AND "LF" 
(PRINT THE CONTENTS OF ACl 
(AC3 » 12 

(SKIP IF ACl IS GREATER OR EQUAL 

(TU »C3 

(IYPE A SPACE 

(acu • 2a 

(SKIP AFTER TYPING » 15 



(AC2 HAD SWITCH StTTlNGS 

(8RI»<G THt CARRY BIT IN ACl 

(TYPE THE CONTENTS OF ACl 

(TYPE A SPACE 

(SKIP AFTtR TYPING ALL THE 15 

(BITS 



(RESTORt PTH? 



0VH87 MnSCH 



01 


022PO 


176000 IN37I 


»1>C 


3,3 


512 


«!22fc7 


154668 


su 


3,INL7K 


0)3 


022 W' 


024065 


LUA 


l.SxRtS 


04 










-ts 


^2211 


133414 


»ND« 


1,2,SZR 


06 


02212 


146401 


SUB 


2.1.SKP 


07 


02213 


147000 


*DD 


2.1 


ad 


02214 


044065 


ST* 


l,S«Rtli 


as 

lit 
U 


0221s 


01066S) IN47I 


ISZ 


INL/K 


02216 


000434 


JMP 


INR7 


12 


02217 


014636 


Oil 


INL7K 


13 


02220 


■120125 


LU* 


0,L»STI 


14 


B2221 


101122 


MOViL 


0,0, sz: 


15 


02222 


000406 


JMP 


.♦6 


16 


02223 


063610 


SkPDN 


TTI 


17 


02224 


000774 


JMP 


."* 


IB 


02220 


101000 


MOV 


0,0 


19 


02220 


■J63610 


ni*c 


0,TTI 


20 


02227 


000402 


JMP 


.+2 


21 


02230 


101220 


MUVZR 


0,0 


22 


02231 


040125 


ST* 


0.LASTI 


23 
24 
25 


02232 


000667 


JMP 


IN07*1 


02233 


u<12037 ITYP7I 


TYP? 




26 
27 

2S 


02234 


10700U IN57I 


»UD 


0,1 


0223b 


020634 


Lu» 


0.IN1736 


28 


02236 


0PI6775 


JSR 


HTTP? 


30 


02237 


121000 


MOV 


1,0 


31 


02240 


000773 


JSR 


HTYP7 


32 


02241 


034632 


LD* 


3.IN1J22 


33 


02242 


116405 


SUB 


0,3,SNR 


34 


02243 


000405 


JMP 


1MB? 


38 


02244 


034626 


LD* 


3,Il»1704 


3b 


02245 


116404 


SUB 


0,3,SZR 


37 


0224b 


,100747 


JMP 


IW47 


3B 


02247 


154065 


ST» 


3,SNRfcG 


39 










40 


02250 


034634 IN67I 


LU* 


3.INS7 


41 










42 


02251 


054625 


SI* 


3.INRTT 


43 


02252 


006074 INR71 


JSR 


HCLF? 


44 


02253 


010613 


ISZ 


INT7 


45 


02254 


030065 


III* 


?,SnREG 


4b 


02253 


176220 


»UCZR 


3,3 


47 
4b 
49 


02256 


173404 


AND 


3,2,SZR 


02257 


172000 


*UC 


3,2 


5fc 


02260 


050065 


ST* 


2,S««EG 


51 


02261 


020622 


LC* 


0,INS?C 


52 


02262 


101100 


MOVL 


0,0 


53 


02263 


020614 


LD* 


0, I«S?0 


54 


02264 


024614 


LD» 


1.INS71 


55 


02265 


030614 


LU* 


2.INS72 


56 


02266 


034614 


LD* 


3.INS73 


57 


22267 


1*02607 


JMP 


♦INK7T 



I4C3 « -1 

(LOCK IN SWITCH INPUT MODE 

(REAO THE CURRRtNT VALUE UF 

|''S«REG" 

(TAKE XOR OF AC! ANQ AC2 



(SAVE THE NEH VALUE OF "SNREG" 
(SKIP IF THE PROGRAM IS LOCKED 
(IN SNITCH INPUT MODE 



(NEVER SKIP 



INAIT FOR OPER*TOR INPUT 



(GET CH»RACTER 



IPUT IN LASTI 



IAC1 • 100* ASCII VALUE OF 
(CONTROL CHARACTER 
IAC0 > 136 

riYPE » 



(AC3 • 122 
(SKIP IF IT IS NOT 



l»C3 • 104 
(SKIP IF IT HAS A 



ao 



(SET SNITCHHES TO DEFAULT 

(MODE 

IAC3 > ADDRESS OF THE LOCATION 

INHERE THE PROGRAM HILL START 



(AC3 ■ 77777 

(SKIP IF THE SNITCHES ARE SET 
(TO ALL ZERO'S 



(RESTORE CARRY 

I 



(RESTORE THE ACCUMULATORS 
(RETURN NITH C(AC3)«CHAR INPUT 
(RETURN 



10048 MNSLM 

01 

02 
03 
04 
35 
06 
87 

0b 



02270 
02271 
02272 
02273 
02274 

39 02275 

1 



044427 

050427 
030430 
020430 
024425 
133404 



02276 000404 

02277 101122 



02300 
02301 

02002 
02303 
023e4 
02305 



101400 

040422 
024423 

133000 
025000 
123000 



02306 041000 

02307 024415 

02310 123300 

02311 040413 

02312 030406 RAN, 21 



IRAnGn-RAnDUM a GENERATOR 
(SPIN »'S OUT IN A HURRY FORGET THE 
H4Ni,N! ST* 1.RN.S1 
ST* 2,Rn.S2 
LU* 2.RN.K1 
Lu» 0.RN.C2 
LOA 1.RN.C1 
*M) 1,2,SZR 
JMP R»N,1 
MUVZL 0,0, SZC 
InC 0,0 

0.RN.L2 
RAN.U LU* l.RTABL 
1,2 
1,0,2 
».« 
0,0.2 

1 ,RANNM 
1,0 



02313 024404 

02314 010405 

25 02315 001400 

26 02316 001400 

27 0231/ 000000 RN.Sli 

28 02320 000000 RN.S2S 

29 02321 000000 RN.C1I 

30 02322 000007 RN.K1I 

31 02323 123456 RN.C2I 

32 02324 000000 RANNMI 

33 02325 ,,02326 RTABL! 

34 02326 027247 

35 02327 145651 

36 02330 162724 

37 02331 071352 
36 02332 034566 

39 02333 116272 

40 02334 047135 

41 02330 113523 



ST* 
LU* 
*UD 
L0» 
AuO 
ST* 
LD* 
AD05 
ST* 0.RANNM 
LU* 2.RN.S2 
LD* l.RN.Sl 
.CI 

0,3 

B,3 



ISZ 

JMP 
JMP 





7 

123456 



HTASL+1 
027247 
145651 
162724 
071352 
034565 
116272 
047135 
113523 



(7 FOR MASKING AT 8 
(CYCLIC CONSTANT 



IROTAT C2 EVERY 8 



(TD GET NXT SUM VAR 



(NEH SUM IN VAR 
(LAST RAN» 



IWP49 Hit! 
ill 

*i 142330 

34 U233? 
<)5 H234» 

ae> d234i 

07 H2342 
dB M234J 

aii B2J4« 

IB .1234:) 

11 *234b 

12 02347 
Id «>235fc 
14 H2351 
lb «2j62 
lb (12353 

22354 
«!235S 
^?35b 
«357 
02 36(1 

22 ii23M 

23 82362 

24 id23b3 

25 «<23b4 

26 02365 

27 «23bb 



17 

18 
1U 
2e 
21 



It ("1122 
(140463 
.444463 
(15(5463 
(iS4463 

Alices 

1<»1120 
1513122 
(lftt)444 
K36767 
C214CI 
iri4/34id2 
(!flb«71 

(>P3i*wp. 
d24446 
£00073 
(.24445 
dCb0/3 
tf24444 
U , ei6v l l73 
C24115 
125Ktf3 
PtHl4(3 
«)24116 
("*bt*73 



(tRROn . ERROR HANDLER - PRINT ALL ERR INFO 
IHRST PRINT PRG« AND (AC'S) 



F.n.ss: 
errom: 



CU.LA 

StA a.ER.SH 
31A 1.EK.31 
SI A 2.EK.S2 
STA 3, EN. S3 
LOA n,S»RtG 
MOVZL 0,(1 
auozl fl,a,szc 
JnP EREXI 
LOA 3,#tR.SS 
LUA 0,1,3 
S1A fc,.+2 
JSR »LMtSS 
i" 

LUA 1,ER.5A 
JSR »LPUCT 
LuA 1.ER.S1 
JSR »LP0C1 
LUA 1.ER.S2 
JSR fLPUCT 
LUA l.PRFLG 
10V 1,1, SNH 
jmp ,»3 
LuA 1.PR.S3 
JSR »LPOCT 



|S*2«1 IS NO 1YPE 
(EXIT NO PRINTING 

IGE1 TEXT AOORESS 

(PUT IN LOC FOLLOWING CALL TO PRINT 

(PRINT ERROR MESSAGE 

(LOC UF Ttxr 

(PRINT AC'S 

(AT ERROR CALL 



(GET PRINI FLAG FOR AC3 



It'dbW MNSCN 






PI 








32 








P4 


(PRINT 


WE" ALLOCATION 


ASSIGNMENTS 


*5 (,2367 


r-*Bl>/l ERMPP: 


JSR «L"tSS 




H6 8237,) 


B»26l? 


TXT. 2 




37 K12371 


324137 


LUA 1,SCRL0 




38 (.2372 


<]<»6P73 


JSR »LP0CT 


(PRINT SCRATCH 


US d2373 


(2414d 


LUA 1,SCRHI 




la (12374 


dflb!*73 


JSR »LPUCT 




11 02375 


-K*b(>71 


JSR #L"1ESS 




12 H2370 


02672 


TXT. 8 




13 d?377 


'124135 


LUA l.TSTLO 




14 <24efc 


nM6("7d 


JSR »PDtCl 


(PRINT TSTLO 


lb d?4i»l 


W24136 


LUA l.TSTHI 




16 ^24B2 


aMIifTT, 


JSR »P3ECI 


(PRINT TSTHI 


17 d24l?3 


M9lbH71 


JSR »L*tSS 




16 Vt24P'4 


»026b4 


TXT. 7 




19 d24t"6 


H241 33 


LUA l.PhSLH 




2d B24SI6 


WPio(*7Si 


JSR «POECI 


(PRINT PMSLO 


21 B24H7 


(124134 


LOA I.PhSHI 




22 (l241n 


dP607a 


JSR #PI)tCI 


(PRINT PHSHI 


23 42411 
24 


K P d 4 ij 1 


JKP EREXI 


(BONE NUR EXIT 



(UON'T PRINT AC3 
(GET SAVEU AC3 
(PRINT IT 



10051 mimScm 








a) 02412 


,?304i3 


EKEKU 


ID* 


2,ER.S3 


02 »2«U 


1514*10 




INC 


2.2 


03 *2414 


/)«'ll 




ST* 


2,fcR.i>3 


•to 0241S 


104516 




J5H 


KEY2N 


05 0241S 


*:> 2 11 4 tf 4 


ehfxt: 


LU» 


o, tx.su 


lib 02417 


(.24404 




Lu» 


t.Ex.Sl 


»7 0242i" 


^ 3d 40 4 




LU* 


2, EN. 52 


ae 02421 


002404 




JmP 


#ER,S3 


09 










10 0?4?«! 


^ C / P Ifl ff 


ER.S01 







11 k,242J 


000000 


er.sii 


■1 




12 02424 





ER.S2I 







13 0242b 


0t*0000 


EK.bJS 







14 











IGET «ET»N ADDRESS 
(INC TO RtTuRN ADDRESS 



10052 "NSC 

01 

02 

03 

04 

35 ("2426 
96 «1242/ 
07 .12430 
06 02431 
39 02432 
1<) 02433 

11 02434 

12 02435 

13 02436 

14 0243/ 

15 B2440 

16 It/2441 

17 02442 
IB 0244J 
19 152444 
2k) 02445 

21 1-2446 

22 P.2447 

23 02450 

24 (92451 

25 02452 

26 R2493 

27 02494 

28 02499 

29 02456 
3D 112497 

31 n?46a 

32 02461 

33 (12462 

34 ?2463 

39 02464 

36 02469 

37 02466 
3B 02467 

39 02472 

40 02471 

41 02472 

42 02473 

43 02474 

44 0247b 

45 02476 

46 0247/ 

47 02&O0 
4B 025811 

49 i»2b?2 

50 02573 
02504 



(ERROR 
1ERR03 



•tRROR HANDLER »ITHOUT PRINT OF AC3 
, ii b UITH " " 



51 

52 02505 



054458 
17o00'« 
07il403 
054433 
176400 
054115 
05^447 
044445 
040443 
036445 
094402 
0O6100 

031000? 

«i30114 
011377 
0004W1 

011379 

480401 
010130 
000401 
020130 
024432 
106404 
000410 
006071 
002620 
060277 
063610 
000777 
060210 
060177 
034065 
177122 
000404 
126000 
133000 
050406 

020406 
024406 
030406 

034406 
001401 
001122 

000000 
000000 
000000 
1£ 

000062 



ER.PR1 
ERRMSI 
EKNPRI 



ERR, LI 
ERR. 01 
E«R,1 I 
fcnR.21 

ERR, 31 
ERR. 51 



ST* 3, ERR. 3 
•DC 3,3 
JMP ,->3 
Sr» i, ERR, 3 
SUB 3,3 
ST* 3.PHFLG 
ST* 2, ERR. 2 
ST* l.ERR.l 
ST* 0,ENR.0 
LU* 3,»ERR.3 
ST* 3.ERRMS 
JSR »tRR0I 


LD* 2.PSTRT 
ISZ -1,2 
JMP .♦! 
ISZ -3,2 
JMP ,*1 
ISZ ERTOT 
JMP ,fl 
LU* 0.ERTUT 
LDA 1.ERR.5 
SUB 0,1, SiR 
JHP ,t8. 
JSR fLHtSS 
TXT. 3 
INTuS 
SkPDN tti 

JMP ,-1 

NIOC TTI 
INTEN 

LD» 3,S«REG 
ADOZL 3,3,SZC 
JMP EHRRT 
ADC 1,1 
ADD 1,2 
ST* 2,EHR,L 
LUA 0,ERR,0 
U0» l.ERR.l 
LDA 2, ERR. 2 
LD* 3, ERR, 3 
JMP 1,3 
CU.L* 



|S*VE RETURN »DOR, 



(SET PRINT OF AC3 FLG 

(S»V6 THE AC'S 

(SET TEXT ADORESS 

(PLACE IN ERROR CALL 

(PRINT ERROR NESS 

(TXT ADDRESS 

(POINTER TO XX. 00 

(INC TEST'S ERROR COUNTER 

(OOF ERRS THIS PASS 

(INC ERROR TOTAL 



(50 ERRORS? 
(50 ERRORS TEXT 
(WAIT FOR KEY ENTRY 



(LOOP? 

(NO.RtTURN 

(YES, RESTART TEST 



(RESTORE THE AC'S 

(RETURN TO CDISP TO RESTART 





50. 



(RETURN ADOriESS 



1*055 
01 

02 42 
Hi 
24 
IS 42 

06 «12 

07 02 
3b 02 
79 U2 

10 02 

11 t)2 

12 02 

13 02 
11 42 

15 02 

16 i)2 
1? 02 
18 
19 
2D 
Si 42 

22 02 

23 42 

24 02 

25 02 
20 02 
27 a? 
20 »2 
29 02 
3(1 02 

31 lit 2 

32 11)2 
3.1 "12 

34 n2 

35 02 

36 02 

37 02 
36 42 

iy 02 

40 02 



MnSLM 
506 124240 



510 
517 
520 
521 
522 
523 
524 
525 
52b 
527 

53a 

531 
532 



533 
534 
535 
536 
537 

54a 

541 
542 
54J 
544 
545 
54b 
547 
56« 
551 
552 
553 
554 
555 
556 



440704 
n> 4 Id 4 1 1 
*>44703 
054703 
054703 
420065 
101120 
1 9131 12 
W00403 
406071 
004000 
034674 
404664 



054421 
.15,3421 
/3406S 
430420 
1574|»5 
004412 
406071 
tfP250f> 
4P0177 
I7b400 
454125 
034125 
175H.J 
H00776 
406231 
330403 
vn ht 2 4 if> 1 

000000 
^04000 
0010*0 



KYMtSl .TXTE 1 TYPE ANY KEY1 

(TEXT CALL ADHS OF TEXT IS IN AC0 

(CALL MUST ONLY BE HADE "MILE IN FIRST LEVEL TEST 

EHTxTi STA 0, EK.SB 

STA 0,ER.TP 

STA 1.EK.S1 

STA 2, EH, S3 

STA 3, EH. S3 

LUA 0,SWREG 

MOViL 0,0 

AUDL« 0,0, SiC 

JMP EH.TP+1 

JSR #LMESS 



LUA 3, EH. S3 
JMP EKEXT 



(OK TO PRINT ERROR TXT? 

(TEXT APRS STORED HERE 
(EXIT 



(lhlS 

KtY2»: 



SUSROuTINt "AITS FOR TTI INPUT IF SH6»1 
STA 3, KEY. 3 
STA 2, KEY. 2 
LUA 3,S*RfcS 
LUA 2, KEY. 6 
AND 2,3,SNR 
JMP KEY. 3-2 
JSR »LMfcSS 
KYMtS 
InTEn 
SuB 3,3 
5TA 3.LASTI 
LUA 3.LASTI 
MOVL 3,3,SNC 
JMP .-2 
JSR «KEY,I 
LUA 2, KEY. 2 
JMP »KEY,3 



(BIT b IS HALT ON EHROR 



(SET FLl, 
(CHECK FLfc 
(SKP • TTI INTR 

(SERVICE TTI HEUUfcSI 



KtY.3l 
KEY. 21 
KtY.6: 



166 



10054 MmSCM 

01 02557 t05?15 T);T,B: .TXTE 1«15><12>ENT EH MEMORY LIMITS (l»HSLO,PHSHI ) IN OECI 

02 02612 «05215 T);T,2: ,TXfE (<1S»«12» 

03 020)3 141523 SCRL0/H1 ( 

04 42024 005215 T)T.3: .1XTE I <19>«12>T0T AL ERRORS » 50<11>TYPE ANY KEY<15»«12» 

05 02642 40;>P15 T(T.4I .TXTE l<15>« 12»ENTEK ANY OPTIONS, CR TO CONTINUEl 
00 n.2664 045215 T>.T,7; .TXTE 1 <15»< 12»PHSLU/Ml 1 

07 142672 403215 T)T.8I .TXTE 1 <15»<12»TSTL0/HI 1 

0b b?700 403215 M>i,H! ,TX1E l«15»«12>DATA ■ AUDK TEST*15»« [2> 

09 02712 141541 ACTUAL0fcXPECTfc90LUCATI0N<15><12>i 

IB 0273m 403215 Ml, 111 .TXTE I«1S><12»ISZ TEST-STOREOVERIF Y MINUS UNE 

11 02754 106705 <15>«l2>ACTuAL*tXPECTEDOLUCAT10N<15»<12»l 

12 027S7 003215 MJ.T2I .TXTE I < 1 5»<12»F0HH, IS2 TEST-HORD NOT •! BEFORE ISZ«1S>< 

13 03413 141541 ACTuAL»EXPEtTfcD«L0CAT10N«13»<12>l 

14 43031 403215 M1.T3I .TXTE l« I »»<12»F0RH. ISZ TEST-HEAD«VfcRlFY«15»« 12» 
16 43447 440412 AtTuALeEXPELTfcl5«L0CATI0N<15><12>| 

16 M065 005215 M1.T4I .TXTE 1<15>«12>HEV, ISZ TEST-HORD NOT -1 BEFORE ISZ<15>«1 

17 43114 040412 ACTUALOEXP£CTEO«LOCATION<15><12>1 

18 03126 HI05215 M1.T51 .TXTE 1«15><12»RE V. ISZ TST- REA0«VERIFY<15»<12> 

15 43144 141501 AtTUAt»fcXPECTED«LUCATI0N<l5><l2>l 

2b 43162 405215 Ml. TBI .TXTE 1 <19»«1 2»F0RH . ISZ TEST. ISZ DIBNIT SKIP 

21 43202 405215 <15>« 1 2>ACTU AL«£XPECTEDOLOCATION«1 5>«l 2> 1 

22 03221 403215 Ml, 17! .TXTE I <1S»« 12»F0RH. ISZ TEST.HQRu NOT .1 AFTER 0SZ«15»< 

23 43245 141501 ACTuAL0EXPECTEt)»L0CATI0N<l5>«l 2> 1 

24 03263 ,505215 MJ.T8I .TXTE J <15»<12>EREV, ISZ TST-ISZ UIDM'T SKIP«15»<12> 

25 43303 M0412 ACTUAL0fcXPECTE[)0L0CATI0N<J5><12» I 

26 03321 405215 M2.T1: .TXTE .1*1 5»<12»MARCH (FUR»AHO) «13><12» 

27 43332 444412 ACTUALOt XPECTE[)OLOCAT10N«BACKI»NO<I 5>«12>1 

2b 43354 <,052l5 M2.T2: .TXTE U15»«12»MAHCH (REVERSE) «15>« 12> 

29 43365 440412 ACTUALOEXPECTEDOL0CATION»BACKBN0«15»«12»l 

3 IP 03407 405215 M3.T1I .TXTE M15><1 2»MASEST (COMPLEMENT TEST) «1 5>« 12» 

31 03425 424303 C(X) C/(Y) LOC(X) LOC(Y) <15>«12>1 

32 03447 405215 M3.T2! .TXTE I <15>«12»MASEST (BACKBND) <15><1 2> 

33 43461 1415K1 ACTUALOEXPECTEP»LOCATION«15>«12»1 

34 03477 405215 "5,111 .TX1E 1 <1 5»<12>GALPAT«15>< 1 2> 

35 43504 <24303 C1Y1 C(X) LOC(Y) LOC (X) <15><12> 1 

36 n-3324 005215 M«,T1: .TXTE I <1S»< 12»S0I Att TEST<15»<12» 

37 03533 141501 ACTuALOfeXPEtTEtl»L0CATI0N«BACKGR0UND< 1 5»<12> 1 

38 4355D 005215 M6.11I .TXTE 1 <15><12»6ALWREL (X AFTER KRITE INV. BACKGNU) 

39 03601 *»5215 <15»«12»EXPECTED«ACTUAL«LUC (X) LUC (Y) <13»«12» I 

40 43023 b052l5 M6.T2I ,TXTF I «1 5><12>GALHREC (X AFTER WRITE BACKGNO) < 1 5><l ?► 

41 43644 142412 E XPtCTfc UOAC 1 U ALO LUC(X) OLOC (Y ) <15»<12>1 



Unas *ns 

31 

■■>i 
fi 

Hi) 

36 Id366'b 

07 u3bS7 

BB e307i' 

B9 m3b7 1 

1H CI 3 7 2 

11 03673 

12 03674 

13 B3675 

14 f367t> 
16 «i3b77 

16 »37("t' 

17 M/lrl 
IB n37^ii 
19 »)37P3 
2» H37P4 
21 t«370a 
2 2 («3 7 Co 



(LPRSL-LlNKt* PROGRAM SELECT OR, 

(ALLO* UStR TU SELECT PROGRAMS TO BUN 

[TYPES LORE SIZE MAP EXIST AND ACTIVE PROGRAMS 

I1F (LAUTU5«-1 GIVES OPERATOR A CHANCE TO 

[OELETE SPECIFIC PROGRAMS 

/fV23l" LAUTO 

C54466 IKRSL: S1A 3 P LPSV3 

1P24KIJ SUB 0,B 

«>4.14o5 STA «,LPRGN 

<2«.471 LUA fl,LPRTl 

„06i*75 JSR »ERRTX 

?2b463 LU» 1,»LPHIK 

1264M INC 1,1 

<!t«Spi7l» JSR #POECI 

Z26767 LuA 1,»LPRSL-1 

*2n513 LPA K.LPR12 

125B/4 Muv 1,1, SZR 

*2rb*i LUA 0.LPRT3 

•P6B75 JSR #ERRTX 

y.2»1545 LuA «l,LPRT4 

vfb*7b JSR #ERRTX 

<>pes«74 JSR »PCRLF 



[FIRST TXT ADRS 

(GET HIGHK PHTS, 

(•MOO IK 

(PRINT SUPR «l < S 



[SKf IF AUTO STRT 

(NOT AUTO USE OTMh HOK 



IPRT PRG HOR 
(CARPET LFEED TST f! 



I IC«b6 MNSCM 


«1 






U2 






PIS 


637M 


*2J447 


aa 


H371k) 


*S 3 4 1 Y> 4 


^5 


«l3711 


117?«>K 


ab 


03712 


«t314 k 'pi 


U7 


i»3713 


lSlne-5 


ae 


413714 


PCI2441 


K9 


a371b 


l?S«/» 


in 


H3716 


»:?lisal 


n 


03717 


1P11PI^4 


12 


H372D 


H0<>432 


13 


^3721 


«5^441 


14 


u3722 


n M B B 7 2 


15 


KJ3723 


i-?<)437 


lb 


B3724 


l?14i»l» 


17 


0372b 


lP14»i* 


IB 


103726 


iei4>)? 


19 


.03727 


aP6?75 


20 


F373B 


«!26736 


21 


B3731 


USKCS 


22 


<<3732 


a P* tf 4 1 7 



(PRINT iNUIVIUUAL TtST DESCRIPTIONS 
(GIVE OPR CMANCt TO DELtTE IF LAUTO» 



LPRLPl 



LUA H.LPR6N 

LUA 3,TTBL 

AUO X,3 

LOA 2,(1,3 

MUV 2,2, SNR 

JMP »LPSV3 

MOV 0, 1 

LUA a, 1,2 
MUV p,n,SZR 
JMP LPR1E 
STA 2.LPIBX 
JSR »PZOCT 
LPA PI.LPIUX 
INC P,fl 
INC H,PI 
InC >»,H 
JSR »ERhTX 
LUA 1,»LPKSL-1 
MOV 1,1, SNR 
JMP LPRlf-1 



(LUR PROG * 



(SKP IF NOT LAST 



(GET PRG RAIT S» 
[SKP IF PRG NOT «AI1 
(TEST MUST bE DELETED 

(TYPE PRG » 



(PRINT UESCR OF PGM 



(SKP IS LET OPR SELECT 
(CR/LF AND 00 NXT PRG 



unb7 mnscp 










ai 




;*A1T 1 


E UR OPERATOR INPUT TO StLECT TEST 


HZ 




(SPACE 


IS StLtCT AMY 


UTnER IS DELETt 


MJ H3/30 


tf6.)277 




InTuS 






M4 «3734 


P63SIP 




SkPun 


Til 




35 »3/3s 


W<f777 




Jf'P .■ 


-1 




«tb <]3736 


*6461^ 




DIAL : 


li TT1 


(GET CHAR 


17 *3737 


«"3u421 




LUA ?, 


,LPR77 




^b «i374u 


1474BH 




A*0 2, 


• 1 




an »J3741 


¥>3tf 42P 




LUA 2, 


,LPR4H 




In «)374i 


146415 




SuSR 2t 1 ,SNh 


rSKP IP DELETED 


11 S1374.J 


*>0»«]4i*6 




JKP LPR1E-1 


ISFLECTtD CR/LF DU NEXT 


12 *37 44 


tfjf 416 




LDA 2, 


.LPIUX 




13 f3/45 


1 PI 2 P * f 




AUC », 


,tj 




14 tti'/io 


tt41*l* 1 




STA ?, 


.1 .2 


ISET «A1T S« IN PHG 


16 .13747 


U20S1 1 




LUA f. 


,LPOTX 




16 fc375o 


0C*6a75 




J5R »tRRTX 


IPRINT DELETED 


17 <)375l 


rti?bP74 




Jo« »PCKLF 


(CR/LF 


16 1)3752 


tfltf4tfl4 


LPRlEl 


IS2 LPRGN 


(♦1 PROG o 


19 >)3753 


ti S 6 1 / 7 




iNTtN 






20 id37S4 


/,P»733 




JnP LPRLP 


100 NEXT PPOR 


21 M7Sb 


#$$?$& 


LPSVJ1 


*i 






32 W3756 


*et0wp7 


UPRl.Nl 


*J 






23 03757 


/Cm 132 


LPH1KS 


PHSHX 






24 U376S! 


HkmP77 


LPR771 


77 






25 B376J 


tf ^ 4 'A 


LPR4UI 


4W 






26 .13762 


fci^tf^Htl 


LPIUXI 


(S 






27 a3763 


(1KJ764 


LPRT1 J 


.♦1 






2o »37M 


«.Hb2l5 




.TXTE 


!<ib>« 


12>n0fl SC-MEMuRY 1EST REV k),i 


29 Vititi 


*eb2ib 


«15><12>TDT*l 


» IK'S 


* J 


3? 1»4E'1J 


»-<M<«14 


LPRT2: 


.♦1 






31 MW14 


s-fbais 




.TXTE 


C«lb>< 


I2»PR0GRAM RUN lISTC 


32 04A26 


«M?27 


LPRT3: 


.♦1 






33 <14(5Z7 


*IP5215 




.1XTE 


(«1S><12> SPACE SELECTS-ALL OTHERS DELETt { 


34 H4U51 


ee4Pb2 


LPRT4: 


.♦1 






39 i)4tl52 


M5215 




.TXTt 


C<lb><: 


l2>PRb# NAMEC 


36 P4a6tf 


rfP4*61 


LPOTX: 


.♦1 






37 «>4tfM 


(14224/ 




.TXTt 


( UELETEDI 


3B 













ItoKibS mnscw 



31 
32 

33 
34 

Jib 
nb 
B7 

«« 

1H 
1 1 



^4*66 ^5441/ 

K!4»67 ;30137 

«>4n>7v5 ^34141" 

rf 4 hn 7 1 « 4 1 ft t? 'A 

H4U72 1514i"* 

B4H73 150432 

k4n74 *)7»*775 

w4^7b *l H 2 4 a 1 

H4K76 WUVtt HKIiaV! 



,ksbkg-»RITl CONTENTS OF ACM INTO BACKSROUND 



STA 3,hNBSV 
LUA 2,SCRL0 
LUA 3.SCRMI 
STA e,l«,? 
INC 2,2 
5uB/» 2,3,S2C 
JMP KNB>>G»3 
JKP »XRRSV 



(SAVE RETURN ADURESS 

(GET LOR/HI MEMORY LIMITS 

I»R1T£ INTO BACKGROUND 

IINL ADDRESS 

|SKP « > SCRHI 

(CONTINUE 

(RETURN Tu CALLER 

(SAVE RETURN LOC, 



14009 ►nscc 

01 (memory ttst «0 data equals au0res5 

.1 1 TL DtUADK 

03 NEX1T M0,37,DATA«ADuR 

04 (DEFINITION TU LINKS PARAMETERS FULLOhS 
Ptb '04077 LMEML", 

06 000141 .LOC LPG0 

07 00141 ,04102 M0.00 

08 »>00142 LPG0». 

tl9 404077 .LOC LMtML 

181 04k,77 />04000 MST tRR CTH THIS PASS 

11 04100 400100 1 ITEST PASS COUN1ER 

12 04101 .'0*000 ITEST ERROR COUNTtR 

13 0410* U00410 »0.00: JmP mv«.08 (EXECUTfc ENTRY AOORtSS 

14 04103 ^00000 (rait switch 

15 44104 .-,04037 37 (maximum segment size 

Id 04105 044504 .TXTE lUAlA'ADORl 

17 «,40724 

IB 440675 

111 042144 

20 ,'04322 

21 (EXECUTE ENTRY 

22 £4112 £34137 Ma, 02; LUA ?,SCRLO 

23 04113 034140 L&» 3.SCRHI (SET LIMIT OF TtST 

24 04114 K51000 «D. 813: STA 2,8,2 (PUT ADDRtSS IN LOC, 

25 44115 1 51401' I i^C 2,2 

26 04116 156432 SU8Z* 2,3,SZC (WRITTEN ALL? 

27 04117 ."M775 JmP M0.03 (NOPE 

28 04124 434137 10. ("4: LUA 2.SLRL0 

?.» 44121 ,21040 LOA 0,0,2 (GET DATA 

3H M122 143040 NOV 2,1 ISET ACl'ADORESS 

31 04123 106435 Su8Z# 0,1, SnR (CHECK VALUE READ 

32 84124 «,00443 JMP M0.4C 

33 LCALL ERROX (ERROR CALL 

34 u 412o .,P27/J? M0.T1 ITXT ADDRtSS 

35 04127 1514 4 M0.4C: INC 2,2 

3t> at lit 155432 SUH20 2,3,SZC (OONE? 

37 5*4 13 1 ,04770 Jul" MB. 04*1 INOT YET 

3B LCALL RETKN (RETURN TO LINK* 



J0060 MNSC* 
01 

02 [MEMORY TLS1 HI ISZ INSTRUCTION TEST 
.TITL ISZT 

04 NfcXTT M1,37,I»Z-TEST 

05 (DEFINITION TO LlNKR PARAMETERS FOLLO«S 
(•5 004133 L«EML«. 

07 000142 .LOC LPG0 

08 00142 004136 mi.bu 
as i'04143 LPGB". 

10 1)04133 .LOC LMtML 

11 04133 00000M ITST tRR CTR THIS PASS 

12 U4134 404000 ITEST PAS» COUNTER 

13 04135 00«i000 ITEST ERROR COUNTER 

14 04136 404410 Ml. 00: JmP Ml. 02 (EXECUTE ENTRY ADORESS 

15 04137 004000 a l«AIT SWITCH 

16 04140 000037 37 (MAXIMUM SEGMENT SIZE 

17 04141 051711 .TX1F IISZ-TEST1 

18 0.20332 
IK 142724 

20 152123 

21 404000 
22 

23 ItXtCUTE ENTRY 

24 04145 03Z137 Ml. 021 LUA 2.SCRL0 

25 04147 034140 LOA J.SCRMI (GET TEST LIMITS 

26 04154 126000 AOC 1,1 

27 04151 04300B STA 1,0,2 (PUT "1 IN SCRATCH AREA 
26 04152 421000 LDA 0,0,2 (VERIFY IT GOT THERE 

29 04153 106435 SuBZI 0,1, SNR (010 IT? 

30 04154 000403 JMP M1.2C 

31 LLALL EKROX 

32 04156 002730 Ml.T! 

33 04157 151400 M1.2C: INC 2,2 

34 04160 156432 SUBZ* 2,3, SZC (UOnE ALL 

35 04161 000770 JMP M1.02«3 IN01 YETI 
36 

37 (FORnARU 1SZ TEST 

36 £4162 030137 Ml, 03: LOA 2,SCRL0 

39 04163 021000 LOA 0,0,2 

40 04164 100015 COM* 0,0, SNR (LOC -1 BEFORE ISZ? 

41 04165 000404 JmP Ml.JC (NO ERROR, SKIP 

42 04166 126000 AoC 1,1 

43 LCALL ERROX (ERROR CALL 

44 04170 002767 M1.T2 (TXT AODR, 

45 04171 411000 M1.3CS ISZ 0,2 (ISZ LOCATION X 

46 04172 004442 JMP .*2 (ISZ uIQNIT SKIP, ERROR 

47 H4173 000406 JMP Ml, 3D I NO , ERROR , SK IP 
46 04174 021000 LOA 0,0,2 (GET LOCATION 

49 04173 126400 SUB 1,1 (EXPECTED 

50 LCALL ERROX (ERROR CALL 

51 04177 003162 M1.T6 (TXT AOOR 

32 44200 045000 STA 1,0,2 (RESORE LOCATION 

33 04201 021000 Mi.3(>: LOA 0,0,2 

54 04202 101005 MOV 0,0, SNR (LOC AFTER ISZ? 

35 04203 000405 JMP M1.3E (NO ERRROR ,SKIP 

36 04204 126400 SUB 1,1 

57 LCALL ERROX (ERROR CALL 

58 44206 403031 Ml, 13 (TXT A0URES5 

39 04207 .'450S0 STA 1,0,2 (RESTORE LOCATION 

60 04210 015040 "1,3k: USZ 0,2 (-1 LOC AGAIN 



BH01 "NSCM 



HI 


H42U 


lfllP*t(j?l 




MOV f,i" 


H2 


04212 


*i21 pap 




LUA B, e, 2 


U3 


»'4<fl3 


IP^flS 




CUM» 0,U,bNR 


CM 


H42H 


<H?w40b 




jmp m.jF 


05 


H42 15 


126n«H 




AUC 1,1 


HO 








LCALL EKRUX 


37 


««2W 


0C3221 




*1.T7 


H8 


B422«] 


lf45M>» 




STA 1,0,2 


19 


.14221 


1514«0 


•U.3F: 


INC 2,2 


in 


B4222 


150432 




SUB/U 2, 3, s^r 


11 


M223 


*1PM740I 




JMP Ml.asn 


12 


«42?4 


u0^)4e»i 




JMP mi. 04 


13 











(SET LOL AFTER uSZ 
IKAS IT -1? 

INO ERROR, SKIP 



[KESTURfc LOCATION AFTER ERROR 
(NEXT LUC 
(UONE ALL? 
(NOT YET 



1P&62 «« 


SCM 






«1 






(REVERSE ISZ Tt.5T 


»i 


K4225 


*> 3 i> 1 4 tf 


Ml ,/4! 


LUA 2.SCRMI 


H3 


H4226 


''34137 




LUA 3.SLRL0 


04 


<M227 


12610 «>H 




ADC 1,1 


«s 


w423«; 


.21^0 




LUA P,H,2 


00 


«<4231 


ISVUIS 




com* a.a.SMK 


P7 


IC4232 


*10^4io4 




JMP mj.oc 


Bfl 








LCALL ERROX 


79 


H4234 


<!U3fo5 




M1.T4 


IP 


1*423!) 


045IMP 




SI A l,e, 2 


11 


H4236 


^l i<»na 


"1.4C: 


IS.2 0,2 


U 


K423/ 


u5V4*)2 




JMP .♦? 


13 


/ifli:4^ 


Y*dA*6 




JMP Ml, 40 


14 


H4241 


iiHUktl 




LUA e>,e,2 


13 


H4242 


126400 




SuB 1,1 


16 








LCALL ERRUX 


17 


«4244 


Hf 3203 




Ml.TB 


le 


H4245 


H45HB? 




STA 1,8,2 


19 


»4240 


tilfl)!' 


Ml ,4(1! 


LUA B,»,2 


2tf 


.14247 


ieiu*;> 




MUV f!,B,SNH 


21 


t'-425? 


(1044^4 




JMP MJ.4E 


22 


H4251 


1204B? 




Sub 1,1 


23 








LCALL ERROX 


24 


M4263 


(13126 




M1.T5 


25 


1^4254 


126HBK 


T,4E: 


AUC 1 ,1 


26 


CU26S 


1338itf« 




ADD 1,2 


27 


04250 


172432 




SUBZ* J,2,SZC 


20 


K4257 


*ifM751 




JMP MI. 04*3 


2U 








LCALL RtTRN 



(STARTING AOOR 
(FINISHING ADUR 

ISE1 LOC BEt-CRE ISZING 
US IT • -1? 
(NO ERROR, SKIP 



(RESTORE LOCATION 
(ISZ THIS LOCATION 
(ISZ UIBNIT SKIP-tRROR 
(NO ERROR .SKIP 



(RESTORE LOCATION 

(LOC a AFTER ISZT 
(NO ERROR, SKIP 



(DECREMENT AC2 TO NEXT LOC 

(OONE ALL? 

(NO 

(OONE, RETURN TO LINKR 



10063 MnSCM 
01 



04 
»5 
0o 

*7 

UK W1U 

*v 

10 

11 04261 
1? 04262 

13 04263 

14 04264 
lb 04265 

16 0426D 

17 04267 
IB 

19 
2. 
21 

22 04272 

23 (14273 

24 144274 
26 04275 

26 0427o 

27 04277 
20 04300 
2V 043*1 
30 04302 
31 

32 04374 

33 

34 04306 

36 

36 04307 

37 04310 
36 104311 

39 04312 

40 184313 

41 (14314 

42 04315 
43 

44 44317 
46 0432.) 

46 04321 

47 04322 
46 04323 
49 04324 
60 04326 
SI 

92 

53 04326 

54 U4327 

55 04330 

56 04331 

57 04332 

58 04333 



0*4261 
000143 
0*4264 
0*0144 
«J*42t>l 
0*000* 
000*0* 
0*0000 

000407 

0*000* 

0*0*37 
040515 
141722 

I * 1 1 * 



2 * * 
u2*12* 
126*00 
044467 
B24774 
123405 
t/30403 
1*2*0* 
000402 



(DEHN 
LMEML" 



LPG0«. 



M2.00I 



Y TtST «2 MARCH 

.1ITL MARCH 

NEXTT M2, 37, MARCH 
ITION Tu LINKH PARAMETERS FOLLD»S 

.LOC LPG* 
M2.0* 



.LOC LMtML 



* 







040457 M2.2A! 

03414* 

030137 M2.031 

024453 

021*00 

1*6415 

0*0406 

034447 

054116 

0*3321 

03414* 

120*0* M2.3C! 

041*0* 

1514B* 

156432 

0*0764 



JMP M2.02 

* 

37 

.TX1E IMAHCMI 



(EXECUTE tNTR* POINT 
162 

M2.02: LUA 0,S*RG2 
ADC 1,1 
STA 1.M2.UR 
LDA 1,M2.02»1 
AND 1,0, SNR 
JMP ,*3 
ADC 1/1,9 
JMP M2.2A 
LCALL AHANG 
S1A *,M2.SV 
LCALL LhRBK 
LDA 3,SCRHI 



LDA 2.SCRL0 
LDA 1,M2,SV 
LDA *,*,2 
SU6* 0,1, SNR 
JmP M2.3C 
LDA 3,M2„SV 
STA 3, PR, S3 
LCALL ERRU* 
M2.T1 

LOA 3,St»Bl 
COM 1,* 
STA *,»,2 
INC 2,2 
suez* 2,3,SZC 
JMP M2.03»2 



rTST tRR CTR THIS PASS 
ITEST PASS COUNTER 
(TEST ERROR COUNTER 

(tXtCUTE tNTRY ADURESS 

(»AIT SRITCM 

(MAXIMUM SEGMENT SUE 



(CHECK FOR FLG SET 

(SET PASS SxITCh 

FSKP IS USE ALL l'S PATTERN 

lUSt RANDOM DATA 

(ALL UNtS 

I 

f UET RANDOM II 

(SAVE IT 

((■ILL BACKGROUND SUBROUTINE 



(GET STARTING ADDRESS 
(GET SAVED DATA VALUE 
(READ OATA *ORD 
(SAME AS -RITTEN? 
(NO ERRROR ,SKIP 



(SET UP FOR AC3 PRINT 
(ERROR PRINT WITH AC3 



(UK, NO" COMPLEMENT VALUE 
(«RlTt BACK COMPLEMENTED VALUE 
(INC ADDRESS 
(CHECK IF DUNE ALL 



(MARCH AGAIN RlTH COMPLEMENTED DATA PATTERN 

020435 LOA 0.M2.SV 

1*0*00 COM *,0 

D40433 STA *,M2.SV 

,,10433 ISZ M2.UR ISKP IF FIRST PASS 

,10,1402 JMP M2.04 INO» UP RtVERSE TEST 

0*e754 JMP M2.03 



10*64 MNSCM 








*1 












02 






(REvFRSfc MARCH 


03 


t 4034 


*'30l 4* 


M2, 


,04 i 


LOA 2.SCRHI 


04 


04333 


034137 






LOA 3.SCRL0 


05 


04336 


024425 






LUA 1,M2.SV 


06 


04337 


021*0* 


M2, 


,4AI 


LOA 0,*,2 


07 


04340 


122415 






SUB« 1,0, SNR 


*» 


04341 


0*04*5 






JMP M2.4C 


*9 


04342 


0441 16 






STA 1.PR.S3 


10 










LCALL ERROT 


11 


04344 


0*3354 






M2.T2 


12 


04345 


034137 






LUA 3,5C«L0 


13 


04346 


120*0* 


M2, 


,4C: 


COM 1,0 


14 


04347 


041*0* 






STA *,B,2 


15 


04350 


1*252* 






SOBZL *p* 


16 


04351 


112400 






sua *,2 


17 


04352 


172432 






Suez* 3,2, sz 


16 


04353 


0*0764 






JMP M2.4A 


19 






(COMPLEMENT DATA AND 


20 


04354 


020407 


M2, 


,»SI 


LUA 0.M2.SV 


21 


04355 


1*0*0* 






COM *,* 


22 


04356 


040405 






STA B,M2.SV 


23 


04357 


014405 






DSZ M2.DR 


24 


04360 


000402 






JMP M2.EX 


25 


04361 


000753 






JMP M2.04 


26 






M2 


.EXl 


LCALL RETRN 


27 


04363 


0*0*0* 


M2 


.SV1 





2b 


04364 


0*0*00 


»2 


,DR! 


* 



(GET STARTING A0OR..HI VALUE 

(GET END ADDRESS 

(GET SAVEU OATA VALUE 

(READ DATA NORD 

(CHLCk AGAINST SAVEU OATA 

(SKIP, NO ERROR 

(SETUP AC3 FOR PRINT 



(COMPLEMENT 

(«RlTt BACK COMP. VALUE 
(♦1 

(DECREMENT AODRESS 
; (CHECK IF LESS THAN SCRLO 

(CONTINUE 
REPEAT 



(DONE BOTH PATTERNS? 
(EXIT BOTH DONE 



(RETURN TO LINKR 
(SAVED DATA VALUE 
(PASS FLAG 



I C P b 5 MMSCM 



»3 
-*4 

as 

M7 

ae 

19 
IP 
1 1 



H4J65 
a43f 6 

12 H4J67 

13 «.437n 

14 ,£3/ l 

13 «4,172 

IP <11j7j 

17 

IB 

Ifc 

2k) 

21 

22 

23 

24 »4J77 

25 vl 4 4 ^ * 

26 H44H1 

27 044H2 
2b *44(r3 
29 ^44P4 

3 in w 4 4 P b 

31 «.44fB 

32 ^44f/ 
33 

34 

36 <5441ii 

36 k)441l 
^441^ 



37 



3b «14413 



^P 4365 
tftf tf 1 44 

n?437f 
/)Pal45 
^l 4365 

"I ? 6 F *! W 
/i SV ? W 

>'. P d 4 VI 7 

tf>Ki*ptf ? 

«4«lblS 
142S23 
152123 



.13K137 
^3414^ 
1&240P 
tj 4 1 t*i<1 ^1 

1514»P 
1564J3 

.; P *'- 4 2 4 
1 v vj v v- ra 
.ja^.773 



i'34 14« 
i'24137 
15S4i"» 
1 37Ck.l? 



IDEHn 
LMFmL* 



V TEST «4 

.TITL MSEST 

NEKTT M3,2,«ASEST 
ITION TO LINKK PARAMETERS FOLLOWS 

.LOC LPGC 

«3,B0 



.LOC LMtML 





JMP 



'3.*? 



.TXTE IMASESTj 



irsr err cih This pass 

ITEST PASS COUNTER 
ITEST ERROR COUNTER 

ItXtCUTE ENTRY ADURtSS 

(BAIT S>I1C>< 

(MAXIMUM SEGMENT SUE 



lEXtCU 
( FILL 



»LL l'S/0'S 



CMPAO! 



TI0N tNTRY PCIN1 
bACKGRUUNO KITH ALTERNATE HOROS UF 
IL'A 2.SLRLO IGFT STARTING ADOH 
LOA 3,SCRhI IGET ENDING AOOR 
SU8 t»,U /GENERATE a ' S 

STA tf,tf f 2 fSTMRF T n Kirxckni 
INC 2,2 
SuRZ* ?,3,SnC 
JMP M3.05 
CQM v, r A 
J«P "3,2A 

LI"ITtri CUMPLEMtNT OF AOOR IN AC2 INTO AC3 
Ll'A 3,SCRMI I 
LUA 1,SCRLC1 I 
SUB 2,3 I AC3=SCkH1-aC2 

ALU) 1,3 IAC3«SCRL0*SCHHl-AC2 



i0WB6 m nSC* 








Ml 




ILHtCr 


ADuRfcSb CPnTEn 


*2 *44 1 4 


L '?1*V? 


13, 


iJ; 


LuA If, if, 2 


A3 <14413 


625**.? 






LDA 1,1>,3 


04 i)44 1 6 


i?4r<!? 






COM 1,1 


^15 H44 17 


1S-6415 






SUiJO 0,1, SNR 


A v< 4 a 7 J} 


IfiviiV'i 






JMP MJ.iC 


VII »14421 


.5411* 






STA 3,P*.S3 


fl8 








LUALL E«R0V 


ID Vi'lll 


f?iiii!7 






H3.TI 


ltf k<4424 


1514.3 1? 


"3, 


3C: 


INC 2,2 


it «>442a 


v'2a 14« 






L0« V.SCRhl 


12 1)4426 


142433 






SUHZfl 2,P,SNC 


13 *I44?7 


>l**<421 






JMP M3.tX 


14 A A C 3 A 


.1 [* / 7 6 v' 






JMP CMPAD 



IREAl) CONTENTS OF AGDK 

IREAD CONTENTS OF CUHPLEHENTEO ADR 

ICOM THE LATTER 

ICHtCiv ONE AGAINST THE OTHER 

ISMP,NO ERROR 



I1NC ADURtSS 

JGET SCRH1 

IDONE ALL HQROS? 

IOQNE 

100 THIS «OHD 



10067 fli.SL" 


HI 






« 


04431 


l. 3 4 1 4 * 


«l J 


(1<!2 


-3M 37 


04 


0443 J 


1264*0 


0b 


04434 


? 1 ^ fi 


00 


0443b 


122415 


07 


4 4 3 D 


-i'.ji/S 


0B 






08 


4 4 4 ,1 


,103447 


1H 


4 4 4 1 


l5l4tf> 


11 


04442 


1 SOA33 


12 


* 444,3 


v"ri<ii 


1 J 


,'4444 


1240*0 


11 


04445 


.101767 


15 


0444b 


«3» I 37 


lb 


0444/ 


1 P ,1 7 4 1 



(VERIFY ThE BACKGROUND 

M3.05: lua 3,scrh1 

LUA 2,SCRL0 

sua 1,1 

m3,5a: lua 0,0 ,2 

SUB" 1,0, SNR 
JMP M3.DC 
LCALL EHROX 
M3.T2 

MJ.5C: INC 2,2 

SuBZ» 2,3,SNC 
JMP -13, SD 
CUM 1 , 1 
JhP Mj,b» 

MJ.bDi LL'» 2,SCRL0 
JMP CMPAD 

Mj.tX: LCALL RtTRN 



(GET SCRH1 

I liFT STARTING ADDRESS 

(ZERO At 1 

(RtAD BACKGROUND 

rcHtCK xt 

(SK1P,N0 ERROR 



(STtP TO NEXT WORD 
(DONE ALL? 
(DONE CHECKING 
(COMPLEMENT EXPECTED VALUE 
;D0 NEXT kOKD 

(FORM COMPLEMENT OF ADDRESS 
IEXIT TU LINKR 



10068 MNSCM 
ill 



03 
()4 

0b 
3b 

s>7 00145 

»B 
09 

It) 04451 

11 044S2 

12 114453 

13 04454 

14 0445b 

15 0445b 

16 0445/ 
17 

IP 
19 
2i! 

21 04462 

22 04463 

23 044P4 

24 0446b 
23 

26 

27 H446(i 

2d 04467 

2U 04470 

3i" 04471 

31 04472 

32 04473 

33 04474 
34 

35 

36 0447b 

37 1^4470 
30 04477 

39 0451*19 

40 04501 

41 «4b02 

42 04503 

43 04bM 

44 0450b 

45 "45C6 

46 04507 

47 04510 
4B Mill 
49 04512 
5k> (.4513 

51 04514 

52 0451b 

53 04bl6 

54 04517 
5b 04b?0 
56 f.4521 



l 4 4 b 1 

np.;i45 

0B4454 
004 146 
004451 

000000 

000000 
000000 
4 6 
71 2 
00000 1 
MiUJ 
040711 
bB.010? 



102400 
04VI532 
040532 
040525 



030137 
034140 
020525 
04 1000 
151400 
158432 
800775 



020521 
040515 
030503 
050501 
030137 
024510 
034)07 
IS7524 
127120 
127124 
133P00 
024503 
167404 
1330*0 
024502 
124000 

045000 

10 4 7 4 
010474 

P. 1 4 6 1 
,,p,76!> 



(MEMURY TfcST 4 

.T1TL SOIAG 

NfcXTT M4,l, SOIAG 
(DEHNITIUN TU LINKR PARAMETERS FULLOKS 
LMEML». 

.LOC LPG0 

M4.00 



.LOC LMtML 



M4.00: JMP M4.02 



1 



(TST ERR CTR THIS PASS 
(TEST PASS COUNTER 
I TEST ERROR CUUNTER 

(EXECUTE ENTRY AOURESS 

r«AIT SallCh 

(MAXIMUM. SEGMENT SUE 



.TXTE ISOIAGl 



(EXtCUTt ENTRY 

M4.02! SuB 51,0 

STA 0,9CKi,N 
STA B.DIAG 
STA B,ROk 

(FILL BACKGROUND 
SD.03: LDA 2.SCRL0 
LUA 3,SCRHI 
LOA «,BCKGN 
SU.LP! STA 16, 9, t 
INC 2,2 
SU8Z* 2,3,SZC 
JMP SU.LP 



(«RITt TO BACKGROUNU 
(STEP TO NEXT HURL 1 
(SKP IS DONE ALL 



(GENERATE DIAGONAL PATTERN 
SO. 04: 



LUA 


ill 


D1AG 


SI* 


n, 


,CLMN 


LDA 


2, 


SO. 32 


ST» 


2, 


,SOCNT 


LDA 


2, 


,SCRLO 


LDA 


1. 


, RO* 


LUA 


3, 


,K37 


ANDfL 


3.1.SZR 


ADDZL 


1,1 


ADD2L 


1,1, SiS 


AUD 


1, 


.2 


LUA 


1, 


,CL*N 


AND 


3 


,1,SZR 


AuD 


1 


,2 


LUA 


1 


,BCKGN 


CUM 


1 


,1 


STA 


1 


.0,2 


ISZ 


RU* 


ISZ 


CLMN 


ISZ 


SUCNT 


JMP 


Su,04*4 



(CNT • -32 



(REPOSITION TO KOH BITS 
(PUT IN ADDRESS 



(ADD IN COLUMN 



(kRITE DIAGONAL WORD 



(SKP IF OUNt 32 "UWUS 
INOT YE11 



IHC69 mn 

»s 154322 
nj u4523 

34 U4S24 
«t5 H4323 
Kb .14526 
1»7 B4527 
«1B B433« 
■719 H4S31 
IV D4332 
11 »4333 
11 B4534 

13 04533 

14 H4336 

16 SJ4537 
lb 0454*1 

17 M341 

18 M342 

19 B4543 

20 W4544 

21 H4343 

22 S14340 

23 *4347 

24 H455P 
23 U4351 
20 K4362 

27 W4333 

28 ,14554 
29 

3P H4556 

31 t',4357 
32 

33 o436*i 

34 l«43bl 

35 *>4562 
3b SJ4363 
37 «|4364 
3B H4365 

39 U4366 

40 1,4367 

41 ,lAi7il 

42 U4571 
43 

44 (14372 

43 H4373 

4b ^43/4 

47 U4373 
4b t'437o 

45 »,4377 

*i46ew 
tf 4bf l 



3(1 
51 



32 *<4ee2 



5CM 

lPi24(ifl 
(J4V1467 
i*4*j4b7 
«,3«1I37 
K24464 
KJ341H7 
167524 
12712H 
127124 
133*P* 
<i24457 
1674«]4 

l33mj» 

w2ieiUi» 

a5»434 
<i3K455 
1 404**1 
1674*i*l 
(130446 
132414 
nf *!4 l 2 
C34446 
164P0P> 
1HP415 
tf*l*)41 1 
K54116 
*i3*144P 

*1035*4 
tf(?*)4*>4 

«i34435 
1 ff SPtitfC 

BCK1767 
"124427 
H34|ifl7 
IA6415 

vH**i4tf 4 
12540*1 
044422 

HHM734 

I 024*1 PI 
U4U417 
B20417 
162415 

*i*i*i4tf 5 

1014W» 
(1 H*i 7 2 4 
i; P'lf u*i 
17774P 



(READ AND VERIFY ARRAY 

S0.K15: bun o,e 

STA a,R0» 
STA P.CLMN 
LUA 2,SC»in 
LUA I , RUx 
LUA 3,K37 
ANDiL 3,1,57.R 
AOOZL 1,1 
AUOZL 1,1, 3ZW 
AUO 1,2 
LOA 1,Clmn 
AND 3,1,S2B 
ADO 1,2 
LOA 1",0,2 
STA 2, SI). AD 
LUA 2.0IAI, 
SUB 2,1 
AND 3,1 

loa 2, run 

SUB* 1,2,S7k 

JMP BCKCK 

LUA S.RLKCn 

COM 3, 1 
Su.KXt SUB* 0,1, SNN 

JMP SU.CB 

S1A 3,P«.S3 

LUA 2,SU.AD 

LCALL EKRUY 

M4.T1 

JMP SO.CR 
(»0H0 «»S 8ACKGRND LHfcC 
9CKCKI Lu« 3,BCKGN 

«0V 3,1 

JMP Su.kx 
SO.CR: LOA 1 , rum 

LUA 3,K37 

SUB* 3,1, S«iK 

JMP Su.CL 

INC 1,1 

STA l,Ru* 

jmp sd.bs«j 
(inc hi next column 
sd.cl: Sub u,h 

STA H.Row 
LUA IC.CLMN 
SuB* 3,0, SNR 
JMP Su.ofi 
INC n,« 
JMP Su.*lh*2 



1»H7P WvSCM 

01 (SLlDc. DIAGONAL BY ONt POSITION 

<12 «46P!J <!2«j4l3 SO. 1*61 LUA (H.rilAl. 

Sua* 0,3,SNn 



SUCnT: 
SO. 32! 



>ADO IN THE RON BITS 



(ADu IN COLUMN TO AUDRESiS 
(GET «0R0 IN ARRAY 
(SAVE ADDRESS FOR LaTlR 

(CLMN - DIAb • HON 



(SKP IS OIAGONAL "ORD 
(BACKbRU «ORD CHECK 



(SKP IS WORD ERROR 
lAODRtSS OP WORD IN ERROR 



(CONTINUE 
K IT 



(CHECK IT 



(SKP IS NOT DONE ALL 
(UO NEXT LOLUMn 



(NEXT RO* TO CHECK 



(SKP IS NOT DONt ALL COLUMNS 
(00 NLXT COLUMN 



33 MbP4 116415 

94 i'4605 ti?^412 

05 ^46^0 1P|4h^ 

fl»b wi46?7 V4i64vJ7 

«17 «l4bli1 H>24kiJ! 

0b «!4bll <10il654 
199 



JMP SU.07 
INC P,P 
STA U.OIAU 
SuB *,P 
JMP M4,B2*3 



(SKR IS NOT ALL POSITIONS DONt 
(OONE ALL NQ« COMPLEMENT PATTERN 



(do this dug. 



ic f4bi2 ^edfitJ 1 Ron: e 

11 ><4bi3 /iB^inei" clmn: v, 

12 04614 bPiWCI SU.AOI 19 

13 «4S15 avenue' BCKGN: i! 

14 (,4616 i«l««)P«i0 OlAbt P 
15 

lb (COMPLEMENT TmE BACKGROUND PATTERN 

17 M4617 i!2i!776 SU,S>7: LDA B.SCKGN 

16 ftb'ii l»^pi«i|> CUM o,? 

19 B.4621 .S40774 STA P.HLKGN 

21? K4622 1131(1*15 MOV ?l,e,SNP 

21 «4623 U704tf4 JMP M4,tx 

22 ^4624 l?24il(» SUB B,B 
?3 .14623 HP24B1 JMP #,»1 

24 ti4626 «104464 M4,B2*2 

25 M4.EX! LCALL RETRN 



(NO SKP IS DONE ALL TESTING THIS ARRAY 
(EXIT 



(START OVER «ITM BACKGND COMPL, 



-32. 



|wsi?l MNSL" 

jij I nfnriKY TtST «5 

.TI1L GLPAT 
a,) NtXTT MS,1,GALPAT 

n 4 (UEFIMTIUN Tu LINKR PARAMETERS FQLLOnS 

as »*4S34 L"En|_=. 
«)b (f,H<6 .LOC lPI>» 

a/ uPl4b «,*4«j3 Mb.nf 

19 8 ."/Id? LPGH". 

as, ,a4S3H .LOC LMEML 

II- i)4b3*- , ••.'"^ 'TST tRH CTK THIS PASS. 

11 Mb31 ,««« P 'TEST PASS COUNTER 

12 eAbit ,:r;Wf » "TEST EUROS CDUNTtR 

li etbit w„m ms.bh: jmp ms.u2 (Execute entry «dd«ess 

14 H4b34 <»4rvi 81 (WAIT S«ITCM 

15 M6JS »«t«l 1 (MAXIMUM SEGMENT SUE 
lb ki4b3b ;4,i5»7 .TX1E IGALPATI 

17 »-a«<314 
IB 1 52101 

20 

21 (EKtCuTE ENTRY 

22 <4b42 i2i-u(>B 1B2 

23 04b43 iei2Pa« MS,i«2: ADC P , rAC»»-l 

24 B4044 «4<444 Sll P.MS.PS (PLACE IN CNTL «0H0 

25 ,94645 «.?412» LUA 1.S.RG2 (CHECr. I1ATA HOLD FLL 

26 i4b46 /3.'7/4 LUA 2,Mb.k)2«l 

27 H4b47 14/4*4 ANO 2,1,SZR ISKP IS USE RANDOM DATA 
2B »465» ,.1^402 JMP Mb.2A I 

JS LCALL ARAnG (GET RANDOM » 

3d hs.ZA: LCALL L«RBK IFILL BACKGROUND 




1 u 

17 Mb7u *1P3477 



17 B467B HPJ477 "3.TI 

lb K4b71 <!2414l« "S.4C: LOA 1,SCR"I 

19 «"4b72 146P33 AOCid 2,1,S 

2«> H4673 CIM403 JMP "I5.IJ5 



IS .05 
INC 2,2 

JMP MS. 1)4 



(GEI SCKHI 
NC (OOnE ALL? 



(INC TO NEXT Y 
(NOT YET 



2« ...„,.. .,....„„ 

21 V14674 1514** 

22 .14675 «><M7bJ 
23 

24 lINCREMEN] X 

25 D4b7b <2«i4l3 Mb. i»S: LOA 8l.Mb.SV (SET BACKGND 

2b U4b77 mini* STA 81, P, 3 (PUT PATTERN IN X 

27 d47PH 17b4HH INC 3,3 (STEP TO NEXT tiORU 

2B «!47J1 16b432 SUBZ« 3,1, SZC IX> SCRfll? 

29 H47*2 l-«<l753 JMP MS,«l4-3 (USE NE» X VALUE 

SB 



SB 

31 «147PIJ »144*i5 Mb.nb: ISZ Mb. PS 

32 W4/B4 B0«l4ri3 JMP M5.tX 

33 J147PS IPUPidU COM «,0 

34 H4/P6 BSM744 JMP MS.2A 



3 

3 
3 
36 

3b 
37 
38 



(EXIT PUInT OF TEST 
M5.EX! LCALL RETRN 



38 

39 M71d 00tfPi?P MS. PS: H 

461 M711 0Pap00 MS.SV: 



(CHECK PASS* 

(EXIT IF N01 FIRST PASS 

(INVEKT OAT* PATTERN 

(1,0 FILL BACKliND »GAIN,TEST AGAIN 

(RETURN TO LINKH 

IPASS CNTL « 

(SAVE BACKGNO DATA 



10173 MNSCM 
01 

32 



IMEMORY TtSTR «.... GALLOPING »RITt RECOVERY 
JUL GLPRR 
NEXTT »6,1,GALRREC 
IUEHNITIUN TU LINK* PARAMETERS FQLLO-S 
804712 LMEML.. 



04 

05 

06 

07 000147 

00 0014/ 004715 

09 d*ol50 LPG01, 

10 004712 

11 04712 Havana 

12 04713 00e0li0 

13 04/14 n H '1 H I? 01 

14 04715 000410 Mb, 00: 
lb 114710 b0W0W0 



.LOC LPS? 
Mb, KM 



•LOC LMtML 



JMP Mb. 02 



16 B4717 (I00BM1 






1 


17 04/20 040507 






.TXTE IGALWHE 


18 153714 








1» 142722 








20 000303 








21 








22 








23 


lEXtCUTt tNTPY 


24 04724 020000 






1B2 


25 04725 102000 


Mb 


.02: 


AUC 0,0 


26 0472b 040447 






STA 0.M6.PS 


27 04727 030120 






LOA 2,S»RS? 


28 0473i H24774 






LDA 1, Mb, 02.1 


2» d4731 133404 






»N0 1,2,SZR 


30 44732 00O4U2 






JMP M6.2A 


31 






LCALL AKANG 


32 
33 


Mb 


.24! 


LCALL LnRBK 


34 


1SET 11 


TO SCRLO 


35 04736 030137 






LDA 2,SLRL0 


3t> 04736 034137 


Mb 


,03: 


IDA 3, SCRLO 


37 04737 1CMP0U 






COM 0,1 


38 








3» 


l*RITE/HEAO FUR This < 


40 0474d 156415 


Mb, 


,04: 


SuBH 2,j,Snk 


4J 04741 (!004|0 






JMP M6.4C 


42 04742 (143400 






STA 1,0,3 


43 04743 025000 






LDA 1,0,2 


44 04744 106435 






SUBZW 0,1, SNR 


45 04745 0004*4 






JMP M6.4C 


46 04746 054116 






STA 3,Px,S3 


47 






LCALL ERROY 


4b 04750 003556 






M6.T1 


49 (14751 041400 


Mb. 


4C: 


STA 0,0,3 


50 04752 (125000 






LOA 1,0,2 


51 04753 106435 






SUBZO 0,1, SNR 


52 04754 000404 






JMP M6.4P 


53 04755 054116 






STA 3. PR, S3 


54 






LCALL ERROY 


55 04757 003623 






16. T2 


56 04760 (124140 


Mb. 


40: 


LOA l.SCRMI 


57 04761 166033 






AUCZAI 3, 1 ,s«c 


56 04762 000403 






JMP M6.05 


59 04763 1754^0 






INC 3,3 


60 04764 000753 






JMP Mb. 04-1 



ITST ERR CTR THIS PASS 
/TEST PASS COUNTER 
ITEST ERROR COUNTER 

[EXECUTE ENTRY ADDRESS 

l«AIT S»ITCH 

(MAXIMUM SEGMENT SIZE 



ISET PASS CNTL TO -1 
IGET DATA FLAB 

ISKP IS USE RANDOM DATA 
luSt ALL ONt'S PATTERN 
ruse RANDOM DATA 
'FILL BACKGROUND 



IX ADURcSS 
IBET SCRLO 
(PUT PATTERN COMPL. IN ;,C1 

-UE OF X 
IOOnM CHtCK X 
(NEXT UORU 

ISTURE INV. PATTERN IN Y 
IREAO X 

ICHfcCK READ AGAINST 8ACKGND 
INO ERROR, SKIP 



IRRITt TO Y BACKGnD 
IREAO X 

ICHtCK AGAINST BACKGND 
INO ERROR, SKIP 



ICHtCK IF Y> SCKHI 



IINC TO NEXT Y 
ICONTINUE KITH NEXT 



(■074 MNSCM 
01 
02 

03 04765 151400 Mli,o5: 

04 (14766 024140 

05 B4767 146432 

06 (4770 000746 
07 
0b 
«tb 

10 04771 »0(l4n3 

11 04772 100000 

12 04773 000741 
13 



UNCRfcMENT X T3 NEXT »ORD 
INC 2, J 

LOA l.SCRnl 

suaz« a, i, sic 

JMP Mb. 03 

ItND OF PASS-CHECK PASS* 
IM6.06: ISZ M6.PS 

JMP Mb.fcX 

COM 0,n 

JMP Mb.,2A 



IOOimE ALL? 
INOT YET 



(EXIT IF NOT FIRST PASS 
ISTART AGAIN KITH CON! DATA 



14 



15 04775 000000 Mb. PS: 
lb 



M6.EX: LCALL WtTRN 



10075 MNSLM 



12 
M 

04 

96 
»7 
rib 
09 
1* 
11 
12 
13 
14 
15 
16 
17 

U 
1 W 

20 
21 
22 
23 
24 
25 
2b 



H477n sOitv/,7 PHO&k: 
04/77 ^0*10:10 l»»!>e: 



.TITl MnSCMT 
LPG0-LZ"AX 



mnK ftns loaded to be init 

IfcNO OF fbH 



U50W4 047503 .TXT /COPVKII.HT IC) DGC1976 

45413 046101 ALL RIGHTS KtSEKVtn/ 



05025 44/115 01R1 : 
141523 
152U5 
120240 

030240 

d00060 
ubt>33 inni«llil 
05434 404200 
45035 176774 
(15036 UP0000 
45037 404000 
4 50 40 * 
50 41 404 00 
*j5042 40400^ 



.TXTE IHNSCMT 



ST»T1 
178774 



•«00040 TL-TAL EKRUR5, 04000 PASS 1 tHKOHS 



4tt7b MNSC* 
















AOFLG 


04012/ 


14/01 














AKANG 


PUPfi77 


13/35 


63/32 


71/30 


73/32 








AUTUK 


001 41 1 


27704 


27/07 


27/10 


27/18 








rtCKCK 


0*1456,1 


69/22 


69/33 












SCKbM 


0114615 


68/?2 
74/19 


68/29 


68/50 


b9/?3 


69/33 


70/13 


70/17 


BfcNAD 


000202 


16/03 


16/06 












dTSV3 


040274 


18/27 


18/30 


18/44 


18/4b 








3TSHD 


01(0252 


18/07 


IB/27 


18/28 










BT.CK 


040261 


18/34 


18/41 












BT.CR 


0D0275 


18/37 


18/47 












CI H75" 


002k)?2 


44/04 


46/02 












CALLE 


001125 


29/14 


30/16 


30/17 










CALLS 


001124 


29/1 1 


30/15 


30/17 










CDbLC 


001474 


29/07 


29/08 












CDISP 


041062 


20/03 


29/02 












CD. EX 


041107 


30/01 














CU.KY 


041123 


29/06 


30/14 












CD. LA 


08U122 


28/04 
52/47 


29/09 


3B/03 


30/04 


30/07 


30/13 


49/03 


CD.S0 


001116 


28/06 


29/02 


29/21 


30/09 








CD. SI 


001117 


28/07 


29/03 


29/22 


30/10 








CD. 52 


001124 


28/08 


29/04 


29/23 


30/11 








CU.S3 


041121 


29/05 


29/08 


30/05 


30/12 








CHA?3 


001701 


42/35 


42/38 


42/42 










CHC7T 


041671 


35/59 


41/42 


41/45 


42/22 


42/29 


42/31 


43/26 


CHR7T 


041722 


42/29 


42/37 


42/45 


42/58 








C"R7Z 


001720 


42/39 


42/44 


42/56 


44/42 


44/45 






CKKEY 


001502 


16/34 


30/14 


39/02 










CK.23 


001547 


39/19 


39/39 












CK.3A 


001541 


39/21 


39/33 












C*.K1 


041544 


39/11 


39/36 












CK.K2 


041545 


39/24 


39/37 












CH.K3 


001546 


39/28 


39/38 












CK.S3 


041542 


39/02 


39/05 


39/33 


39/34 








CLF? 


001714 


13/24 


42/47 












CLMN 


044613 


68/37 


6B/47 


68/54 


69/04 


69/12 


69/46 


74/11 


CMPAD 


004410 


65/35 


66/14 


67/16 
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